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This publication describes the internal logic of the 
1130/2250 Graphic Subroutine Package (GSP) for Basic 
FORTRAN IV. The GSP is a group of subroutines that the 
FORTRAN programmer uses to write graphics programs for 
the IBM 2250 Display Unit, Model 4, attached to an 1130 
Computing System. The GSP is not an extension of 
FORTRAN, and it may also be used by Assembler-language 
programs. 

This program logic manual is intended for use by 
persons involved . in program maintenance, and system 
programmers who are altering the program design. Its 
primary purpose is to serve as a guide to the program 
listings with which it is to be used. Since program 
logic information is not necessary for using the 
program, distribution of this publication is limited to 
those with the aforementioned requirements. 
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PREFACE 



The purpose of this publication is to 
assist those persons concerned with adjust- 
ing or re-designing the logic of the sub- 
routines that comprise the 1130/2250 Graph- 
ic Subroutine Package for FORTRAN IV. The 
program logic manual is primarily a guide 
to the listings, and should properly be 
used with the listings i It should not be 
used in place of the listings when an 
understanding of the logic of the program 
at the coding level is necessary. 

This manual is divided into six areas: 
(1) an introduction consisting of an over- 
view of the Graphic Subroutine Package and 
its relation to the 1130 Disk Monitor 
System, Version 2; (2) a theory of opera- 
tion describing the logic and design of the 
Graphic Subroutine Package and how communi- 
cation and control is effected; (3) GSP 
subroutines, a discussion of each subrou- 
tine in detail; (4) diagnostic aids; (5) 
flowcharts; and (6) appendixes. 

The reader is assumed to have an under- 
standing of the external operations of the 
IBM 1130 Computing System, the Graphic 



Subroutine Package for FORTRAN IV, and the 
functional characteristics of the IBM 2250 
Display Unit, Model 4. 
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The 1130/2250 Graphic Subroutine Package 
for Basic FORTRAN IV (GSP) is a set of 
subroutines, control blocks, and communica- 
tion areas which are used in conjunction 
with the IBM 2250 Display Unit Model 4 
attached to an 1130 Computing System. The 
GSP gives the FORTRAN or Assembler- language 
programmer the capability of displaying 
images in the form of lines, points, and 
characters on the screen of the 2250. The 
GSP also provides for communication between 
the 2 250 operator and the program. 



GENERAL CHARACTERISTICS OF THE GSP 



INTRODUCTION 



tion functions are unnecessary since these 
display programs are permanently defined 
and need no modification. 

To handle communications between the 
program and the 2250 operator, the GSP 
provides a subroutine which services inter- 
rupts from the light pen and from the 
keyboards. This subroutine may pass con- 
trol to other internal subroutines to modi- 
fy the display or build new display pro- 
grams as the light pen or keyboards are 
being used. 



The GSP may be divided into two groups 
of subroutines: external and internal* 
The external subroutines are those subrou- 
tines which are called by the user's pro- 
gram. The internal subroutines are trans- 
parent to the programmer and are not 
entered from the user's program. The 
internal programs are normally called by 
other GSP subroutines. To support the 
interaction between the user's program, the 
external subroutines, and the internal sub- 
routines, the GSP also uses several control 
blocks and communication areas (see Figure 
1). 

The GSP uses a system display, a skele- 
ton display program containing no display- 
able data but constructed to permit the 
attachment of other display programs. The 
display programs (graphic elements) which 
are attached to the system display may be 
built by the GSP as a result of CALL 
statements in the user's program or may 
permanently reside within certain GSP 
subroutines . 

User-defined display programs are built 
through calls to the external image manage- 
ment and image generation subroutines. 
These subroutines process the data passed 
in the calling arguments, and call upon 
internal subroutines to do some further 
processing. From the data passed, display 
programs are built. The main processing 
program may then invoke GSP subroutines 
which connect the newly built display pro- 
gram to the system display and incorporate 
it into the system display ' s regeneration 
cycle * These subroutines may also be 
called upon to disconnect display programs 
from the system display. 

Display programs which permanently 
reside within the GSP are brought into the 
regeneration cycle in a similar manner. 
However, image management and image genera- 



GSP/DISK MONITOR SYSTEM INTERFACE 

The GSP operates under the direction and 
control of the Disk Monitor System, Version 
2 (DMV2) . Figure 2 illustrates the actions 
taken by the DMV2 beginning with recogni- 
tion of the *G2250 Supervisor Control Rec- 
ord through the passing of control to the 
mainline program. In general, the DMV2 
supports the GSP by (1) enabling the user 
to declare his intention to use the GSP, 
(2) converting GSP subroutines from Disk 
System Format to Core Image Format, and (3) 
loading any GSP subroutines which must 
reside in core in order for the GSP to 
operate. 

The GSP is initially accessed through 
the use of the +G2250 Supervisor Control 
Record. The *G2250 card causes GCOM, the 
GSP communication area, to be loaded as the 
first in-core subroutine after the mainline 
program. The option of requesting other 
internal subroutines to be loaded is also 
provided by the *G2250 card. In addition 
to loading these subroutines, the *G2250 
card causes certain fields in COMMA to be 
initialized for use by the GSP initializa- 
tion subroutine. 

When an XEQ Monitor Control Record, 
which indicates that a Supervisor Control 
Record (s) is to follow, is detected in the 
job stream, control passes to the Supervi- 
sor Control Record Analyzer. This subrou- 
tine examines the +G2250 record and, after 
converting the information contained on it 
into name code, places this information in 
the Supervisor Control Record Area (SCRA) . 
The information is now available to the 
Core Load Builder. When the Core Load 
Builder constructs the Load Table (4), the 
first names entered after the mainline 
program are those of GSP subroutines found 
in the SCRA. 
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The purpose of having the GSP subrou- 
tines as the initial entries in the Load 
Table is to insure that these subroutines 
reside in the lower 8K of main storage. 
Residence below location 8192 is necessary 
because the Graphic Short Branch order 
(GSB) is restricted to referencing loca- 
tions within the lower 8K of storage. The 
GSB is used in GCOM, in the optional 
character generation subroutine (GCHAR or 
GUPER) , and the optional Verification 
Direct Entry subroutine (GSP12). 

The Load Table is used by the Core Load 
Builder to build a core load. Each name in 
the Load Table is searched for in the 



Location Equivalence Table (LET) to obtain 
the address of the specific subroutine on 
the disk. As each subroutine is found it 
is converted from disk system format to 
core image format and stored in the Core 
Image Buffer (CIB). The CIB is an area on 
the disk which is used as a temporary 

the portion of the core 
reside below location 



storage area for 
load which is to 
4096. 



Immediately after the time the Core Load 
Builder converts the word which is to 
occupy location 4097, the remaining subrou- 
tines are stored directly into core. As 
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the core load is being built, the Core Load 
Builder examines each subroutine to (1) 
ensure that any subroutines which 
referenced by a CALL or LIBF statement 
incorporated into the core load and 
reserve areas within the core load for 
largest LOCAL and/or SOCAL. 



are 
are 
(2) 
the 



When the last word of the in- core load 
has been converted and stored, control 
passes to the Core Image Loader. The Core 
Image Loader reads the contents of the CIB 
into the lower 4K of main storage (.8). The 
core load now overlays the Core Load Build- 
er which has completed its processing. The 
Core Image Loader passes control to the 
mainline program to begin execution. 



Exit is the manner in which and 
tion to which exit is made. 



the loca- 



Input is the information in the calling 
sequence passed by the calling program to 
the subroutine. 



Output is 
processing. 



the result of the subroutine's 



Operation is the general flow of internal 
logic from the entry point of the subrou- 
tine, and describes the manner in which 
processing is performed. 

Errors is a description of possible error 
conditions within the subroutine and the 
resultant error codes. 



FORMAT OF SUBROUTINE DESCRIPTIONS 

Detailed descriptions of all GSP subrou- 
tines are presented in this publication in 
the following format: 

MNEMONIC — Name is an abbreviated symbol 
and the full name of the subroutine. 

Chart is the two-letter symbol assigned to 
that subroutine's flowchart (s) . 

Function describes the services provided by 
the subroutine. 

Entry is the mnemonic designating the point 
at which the subroutine is entered. The 
type of referencing statement used is found 
in Appendix B. 



OPERATION DIAGRAM C O NVENTIONS 

The figures used in this publication use 
the following conventions: 



= flow of control 




flow of control in display 
program 



-► = data movement 

-9* = data reference 

= an attention (2250 
interrupt) 
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THEORY OF OPERATION 



This section describes the communica- 
tions areas and the general flow of logic 
and data in the following functional areas 
of the GSP: 

• Initialization and termination 

• Image Management 

• Image Generation 

• Alphameric and Text Generation 

• Light Pen 

• I/O Operations of the 2250 

• Attention Handling 

• Error Handling 

The figures associated with the text are 
supplementary and show only the principal 
paths for the function. A description in 
greater detail is given in the respective 
sections of "GSP SUBROUTINES." 

LINKAGE MECHANISMS 

The GSP uses several means for estab- 
lishing linkage between the mainline pro- 
gram and the GSP subroutines, and among the 
subroutines themselves. CALL or LIBF 
instructions are used to access the GSP 
subroutines depending upon the type and 
subtype of the subroutine being accessed 
(see Appendix B) . Also, a Branch and Store 
IAR Indirect instruction may be used to 
access a subroutine whose address is stored 
in a known location (this is used in a 
manner similar to a LIBF instruction) * 
Although the Assembler- language programmer 
can use both CALL and LIBF statements, thus 
making all GSP subroutines available, the 
FORTRAN programmer can access only those 
subroutines referenced by a CALL statement. 
The subroutines not accessed by CALL state- 
ments are internal service subroutines that 
perform common functions for other GSP 
subroutines. 

The GSP subroutine GSP01 (see Figure 3) 
performs several functions associated with 
control transfer. The save function stores 
index registers, the address of the next 
sequential instruction in the calling pro- 
gram, and any arguments in the calling 
sequence in unique fields in GCOM. These 
arguments may be referenced by the called 
subroutine for processing. The return 
function of GSP01 restores the index regis- 



ters to the status existing prior to enter- 
ing the called subroutine, and causes a 
branch to the next sequential instruction 
in the calling program. 

The error function of GSP01 is discussed 
under "Error Handling". 

Return to a calling program may also be 
made by branching indirectly through the 
operand field of the entry word of the 
called subroutine. The address of the next 
sequential instruction in the calling sub- 
routine is stored in this operand field by 
a CALL statement. Similarly, a LIBF state- 
ment stores in the third word of the called 
subroutine the address of the next word 
after the LIBF statement in the calling 
subroutine. This also may be used to 
compute the next sequential instruction in 
the calling subroutine if there are parame- 
ters immediately following the LIBF 
statement. 



C OMMUNICATIONS AREAS 

The GSP uses four communications areas 
(GCOM, GCA, ICA preface and ECCB) to assist 
the subroutines in processing data. The 
format of each is shown in Appendix A. 

The GSP Communication Area (GCOM) is 
loaded as a result of the +G2250 Monitor 
Supervisor Control Record, and initialized 
by GSPIN (GSP Initialization) . GCOM is a 
communication area used by many of the GSP 
subroutines as pointers, indicators, and 
constants. Included in GCOM are the graph- 
ic orders to display a processing message 
and a scanning pattern, and a series of 
graphic orders comprising the system dis- 
play (see below) . Several other areas are 
of particular importance. These include 
the attention handling fields, the image 
generation fields, and the fields used by 
the internal subroutines GSP02 and GSP06. 

The Generation Control Area (GCA) is 
defined by the FORTRAN programmer. It 
contains values and options used by the GSP 
image generation subroutines for scaling, 
scissoring, converting, and indexing data. 
There may be more than one GCA, but each 
must be initialized and fully defined 
before being used. 

The Image Construction Area (ICA) pre- 
face is a twenty- four word communications 
area created in the lower core positions of 
an ICA by the subroutine ICAIN. The pre- 
face contains pointers, counters, and indi- 
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cators used by the image management subrou- 
tines in creating and modifying graphic 
elements within the ICA. 

An Element Correlation Control Block 



the higher 
core positions ot tne ±ca. It contains 
pointers to and indicators for a specified 
named graphic element within the ICA. 



(ECCB : ) is a four-word area in 
positions of the ICA. 



SYSTEM DISPLAY 

The system display, which resides in 
GCOM, is the "mainline" order program of 
the GSP. Any user- or GSP-defined set of 
graphic orders is executed by connecting 
thean to the system display. When an order 
program is connected to the system display, 
it becomes incorporated into the regenera- 



tion cycle of the system display until some 
action is taken to disconnect it. The 
system display, through the Start Timer 
order, also permits keyboard interrupts and 
initiates testing of the light pen switch. 
Figure 4 shows the skeleton coding of the 
system display. 

The first two orders in the system 
display form a "switch trap", a mechanism 
used to prohibit the rest of the system 
display from executing. The switch trap is 
comprised of a Start Timer order followed 
by a Graphic Branch Conditional order to 
the Start Timer order. The branch is 
executed when the light pen switch is 
closed if the user requests this service in 
a call to the EXEC subroutine. As long as 
the light pen switch remains closed, only 
the switch trap may execute. 
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SYSTEM DISPLAY 




Graphic Short Branch to Start Timer 



Figure 4. System Display 



Following the switch trap is a second 
Start Timer order, a series of Graphic 
Branch orders, and a Graphic Short Branch 
to the second Start Timer order to form a 
continous loop. It contains no displayable 
data. To connect a set of graphic orders 
to the system display, the address of the 
order program is placed in the operand 
field of a Graphic Branch order and the 
no-operation bit in the order is turned 
off. The order program is disconnected by 
setting the no-operation bit on* 

The system display contains Graphic 
Branches to four order programs: CD the 
processing message, (2) the tracking sym- 
bol, (3) the scanning pattern, and (4) the 
user* s image entity. The addresses of the 
orders for the processing message and the 
scanning pattern are permanently set at 
load time in the branch orders. The 



addresses of the orders for the tracking 
symbol and the image entity are placed in 
the orders *in response to a CALL statement 
in the user's program. 



The system 
GSPIN, the GSP 
GSPIN insures 
orders are set 



display is initialized by 

initialization subroutine. 

that all the Graphic Branch 

to perform no-operation. 



GSPIN then gives control to the 2250 I/O 
subroutine, DSPYN, to issue the XIO command 
to start regeneration of the system dis- 
play. Regeneration of the system display 
is stopped and restarted when attentions 
occur. 



INITIALIZATION AND TERMINATION 

The purpose of the initialization sub- 
routines is to prepare the GSP for creat- 
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ing,, displaying, and modifying graphic 
elements. 

To prepare the GSP for processing, the 
initialization subroutines set the communi- 
cations areas to standard values, or modify 
them to non-standard values for specific 
functions. 

The first subroutine called by the pro- 
gram must be GSPIN (see Figure 5) which 
establishes the relative addressing for the 



GSP Communication Area (GCOM) using the 
Transfer Vector Table and COMMA. GCOM is 
then set to standard generation control 
values and precision specifications, and 
error return variables are set. GSPIN uses 
GSP03 to initialize the generation control 
fields in GCOM, and DSPYN to start 
regeneration of the system display before 
returning to the mainline program. 

The Image Construction Area (ICA) is 
initialized by ICAIN. This establishes an 
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ICA preface, sets the pointers to the 
specified addresses, and sets the indica- 
tors to standard values. An element corre- 
lation control block (ECCB) for the ICA is 
built using the assigned correlation value, 
and the ICA is indicated as active. 



full but there are elements indicated as 
deleted. 



IMAGE GENERATION 



The Generation Control Area (GCA) may be 
completely initialized by GCAIN, or ini- 
tialized in part by any of the following 
subroutines: SSCAL, which sets the scaling 
values; SINDX, which sets the index values 
for accessing data arrays; SINCR, which 
sets the increment values; SDATM, which 
sets the x- and y-input data mode; SGRAM, 
which sets the output graphic mode; and 
SSCIS, which sets the scissor option. The 
internal subroutine GSP10 is used by GCAIN 
and SSCAL for scaling data, and by GCAIN 
and SINCR for storing data in the GCA. 

The subroutine GSPTM terminates the use 
of the GSP. 



IMAGE MANAGEMENT 

The image management subroutines provide 
a means of defining, modifying, and dele- 
ting graphic elements within an image con- 
struction area (ICA) , or creating and 
including in an order program graphic ele- 
ments outside of an ICA. Figure 6 shows 
the subroutines called by the program to 
perform unique functions. The following 
internal subroutines perform common func- 
tions for the image management subroutines. 

GSP01 saves the status of the calling 
program upon entering a subroutine and 
provides a mechanism for returning to the 
next sequential instruction in the calling 
program upon completion of the subroutine, 
or upon encountering an error condition. 

GSP02 stores overhead orders for an 
element within an ICA. 

GSP03 builds an element correlation con- 
trol block (ECCB) for a specified element, 
searches for a previously defined ECCB, 
initializes the generation control fields 
in GCOM, or transfers data between the ICA 
preface and GCOM for update functions. 

GSP04 (Push- down) moves non- deleted ele- 
ments to lower core positions within an 
ICA, overlaying elements that have been 
indicated as deleted, to make more area 
available within the ICA for the creation 
of new elements or for the extension of 
existing elements. 

GSP05 (Push-up) moves all elements fol- 
lowing a specified element to higher core 
positions within an ICA so that the speci- 
fied element may be extended. GSP05 calls 
GSP04 to provide more area if the ICA is 



The image generation subroutines cause 
the generation of graphic orders necessary 
to position and display an image on the 
2250 screen. Figure 7 shows the subrou- 
tines called by the program to perform 
unique functions. 

The internal subroutines perform common 
functions for the creation of the graphic 
orders within elements in the ICA. In 
addition to the function described in Image 
Management, GSP02 can convert absolute data 
to incremental graphic orders, can generate 
graphic short branch orders to character 
stroke subroutines, and can generate abso- 
lute and incremental graphic orders. The 
internal subroutine GSP06 scissors portions 
of an image that fall outside of specified 
grid boundaries so that only that part of 
an image within the boundaries is 
displayed. 



I/O OPERATIONS OF THE 2250 

I/O commands to the 2250 are issued by 
DSPYN, the GSP I/O subroutine. This sub- 
routine is used by other GSP subroutines to 
do I/O functions and can be directly 
referenced by Assembler- language programs. 
Interrupts originating from the 2250 key- 
boards and light pen also cause I/O func- 
tions to be performed. This topic is 
covered in the section "Attention Process- 
ing." Figure 8 shows subroutines that use 
DSPYN to perform I/O operations, and the 
flow of control and data. 

GSPIN, the initialization subroutine, 
prepares the GSP to display data by calling 
upon DSPYN to start regeneration of the 
system display. The associated I/O Control 
Command (IOCC) which specifies the address 
of the system display, is sent to the 
channel interface section of the 2250. The 
2250 then begins to access and decode the 
order program. 

EXEC enters the address of the image 
entity in the system display, resets the 
no-operation bit in the branch order to the 
image entity, and calls DSPYN to start 
regeneration. The IOCC then directs the 
2250 to begin accessing orders for the 
display section of the 2250. 

TMDSP resets the no-operation bit in the 
graphic branch order, causing the ICA to be 
bypassed during the regeneration cycle. 
DSPYN is again called to start the system 
display. 
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SPFKL lights the programmed function 
keyboard (PFKB) lights and (optionally) 
enables those keys that have been lighted. 
This subroutine constructs two words within 
DSPYN from an array specified in the call- 
ing sequence. The bit configuration in the 
two words represents the PFKB indicators 
which are to be lighted. DSPYN issues the 
command to Set Programmed Function Indica- 
tors and the two words are transferred to 
the 2 250 to light the indicators. 



GSPTM terminates use of the GSP. DSPYN 
turns off (bit configuration of zeros) the 
PFKB lights and issues the command which 
stops regeneration. Regeneration ceases 
and all registers and values are returned 
to their normal status. 

The Assembler- language programmer can 
call DSPYN directly and request each I/O 
function. The individual I/O functions are 
included in the description of the DSPYN 
subroutine. 
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LIGHT PEN FACILITIES 

The light pen subroutines are those 
which facilitate communication between the 
2250 operator and the program through the 
use of the light pen. These subroutines 
provide the services of locating positions 
on the 2250 screen and dynamically building 
graphic elements into the ICA through light 
pen tracking. 



pen in an array specified by RQATN. A call 
to the LCPOS subroutine positions the 
tracking symbol at the specified coor- 
dinates by activating a branch in the 
system display to the tracking symbol and 
entering the x and y coordinates into an 
order in GSP09 which positions the tracking 
symbol. 



LOCATING POSITIONS 

To locate a position on the screen, one 
of three subroutines may be called: LOCPN, 
LOCND, or LCPOS. Figure 9 shows the sub- 
routines used for locating positions on the 
screen. If the operator desires to deter- 
mine the coordinates of a specific point on 
the screen, he may signal the program to 
call LOCPN or LOCND. A call to these 
subroutines activates a branch in the sys- 
tem display to the scanning pattern. A 
call to LOCPN immediately activates the 
branch, while a call to LOCND does not 
activate the branch until the light pen 
switch is closed. Once the scanning pat- 
tern is displayed, a normal light pen 
attention may be generated to put the 
coordinates of the position of the light 



LIGHT PEN TRACKING 

The light pen tracking feature of the 
GSP permits the operator to dynamically 
build graphic elements through manipulation 
of the tracking symbol. As the tracking 
symbol is moved about the 2250 screen, 
points may be fixed and used as reference 
locations by graphic orders which are con- 
currently being built into a tracking enti- 
ty. Figure 10 shows the interaction of the 
light pen tracking subroutines and the 
sequence of events when an interrupt occurs 
on the tracking symbol. 

A call to the TRACK subroutine provides 
the environment necessary for light pen 
tracking by initiating the display of the 
tracking symbol and having an ECCB built 

for a tracking entity. The graphic orders 
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which draw the tracking symbol are in 
GSP09. TRACK activates the branch in the 
system display to the tracking symbol 
orders causing the symbol to appear on the 
screen. 

To establish a tracking entity in which 
graphic orders may be stored, TRACK calls 
GSPOU to provide room in the ICA for the 
tracking entity. GSP03 is then called to 
build the ECCB for the tracking entity. 
TRACK also establishes several tracking 
default options (points, lines, axis re- 
strictions, etc.) which are stored in GCOM 
for use by GSP09. For the user to desig- 
nate his own drawing techniques and other 
options, a call is made to CTLTK,. This 
subroutine defines the tracking character- 
istics the user wishes to apply to his 
program. 

Once the tracking environment has been 
established and the characteristics 
defined, the user may begin to generate 



graphic orders through the tracking symbol. 
Each attention on the tracking symbol 
causes control to pass through ILSX3, 
DSPYN, and GSP08 to GSP09. Here the track- 
ing symbol is centered on the light pen. 
An algorithm is used to determine where the 
light pen is positioned on the tracking 
symbol and to what coordinates the symbol 
must be moved to reposition its center on 
the light pen. These coordinates are also 
used in building graphic orders which are 
stored in the tracking entity. As the 
tracking symbol is being moved about the 
screen, GSP09 is simultaneously building a 
tracking entity. 

Since light pen tracking is produced by 
a series of rapid attentions on the track- 
ing symbol, and each attention causes the 
regeneration of the system display to be 
halted, DSPYN issues an XIO to start 
regeneration of the system display each 
time control is passed back to the inter- 
rupted program. 
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ALPHAMERIC KEYBOARD AND TEXT GENERATION 
SUBROUTINES 

Alphameric data may be entered into 
graphic elements from the alphameric key- 
board (see "Attention Processing") or from 
data in the problem program. To enter data 
from the alphameric keyboard, a message 
entity must be defined by DFMSG (see Figure 
11) and message collection mode must be 
established by a call to ICURS„ which 
stores in the message entity a Graphic 
Short Branch (GSB) order to the cursor 
subroutine (in GCHAR) , and stores the 
address of the Cursor Direct Entry subrou- 
tine, GSP07, in the ANDE field in GCOM. 
Message collection mode is terminated by 
RCURS , which replaces the GSB to the cursor 
with a GSB to the cursor null, and removes 
the address of GSp07 from GCOM. 

To enter data from the problem program, 
the subroutine DFMSG defines a message 
entity and the subroutine MSGIN causes the 
translation of data into graphic short 
branch orders which are ' stored in the 



specified message entity. Message collec- 
tion mode need not be established, as data 
is not being entered from the alphameric 
keyboard. 

Conversely, the subroutine TLMSG trans- 
lates Graphic Short Branch orders in a 
message entity into EBCDIC and stores the 
resultant code in a user defined array. 

The subroutine BCNV provides the conver- 
sion of data between EBCDIC and real, and 
EBCDIC and integer format. 



ATTENTION HANDLING 

An attention is ah interrupt from the 
2250 and is meaningful to the program or to 
the GSP. Some attentions are processed 
internally by the GSP. These are (1) 
CANCEL key, (2) light pen detects on the 
tracking symbol, and (3) alphameric atten- 
tions while in message collection mode. 
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For other attentions, the GSP saves 
information about the attention for further 
processing by the program, but only if (1) 
the source of the attention has been desig- 
nated by the program as enabled, and (2) 
information for a previous interrupt is not 
waiting for program processing (attentions 
are not queued) . Sources that can be 
meaningful to the program are the light 
pen, the alphameric keyboard, the pro- 
grammed function keyboard, order controlled 
(for Assembler-language only) and the END 
key. 

The following paragraphs describe the 
logic of the GSP subroutines that allow the 
program to recognize and interpret atten- 
tions in the manner prescribed by the 
program and the GSP. 



ATTENTION ENABLING AND INFORMATION 
RETRIEVAL 

If the source of an attention is to be 
meaningful to the program, the subroutine 
SATNS (see Figure 12) must enable the 
source by setting an indicator word in 
GCOM. This word is examined by the inter- 
rupt service subroutine DSPYN when an 
attention occurs. If the source is 
enabled, attention data is saved in a 
storage area in DSPYN and can thus be made 
available to the program. 

The subroutine RQATN is used to transfer 
attention data from the storage area in 
DSPYN to a user defined array. This data 
is then available to the program for fur- 
ther processing. Attention data is not 
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saved (queued) by the GSP; thus, if atten- 
tion data exists in the storage area in 
DSPYN as a result of an enabled interrupt, 
further interrupts are ignored until RQATN 
transfers the attention data to the user's 
array. (The contents and format of the 
user array are shown with the description 
of RQATN.) 

The subroutine ROCOR can be used to 
retrieve information not included in the 
attention array (the correlation value of 
the element in which an element is nested, 
or the correlation value of a subroutine 
linkage) . 



ATTENTION PROCESSING 

The GSP processes attentions originating 
from the light pen, the programmed function 
keyboard, the alphameric keyboard, and the 
order program itself. An attention from 
any of these sources (see Figure 13) causes 
control to pass to DSPYN, the GSP Interrupt 



Service Subroutine via a hardware-generated 
branch to ILSX3, the 2250 Interrupt Level 
Subroutine* At the time of an attention, 
regeneration of the system display automat- 
ically ceases. 



Each time an attention is generated, 
DSPYN tests GCOM to determine if a direct 
entry routine has been specified for the 
particular source. The direct entry sub- 
routine may be defined by the GSP or by the 
user through facilities provided in DSPYN. 



Note : The GSP provides six Interrupt Level 
Subroutines (ILSXO, ILSX1, ILSX2, ... 
ILSX5) which are similar to the Interrupt 
Level Subroutines ILS00 through ILS05 with 
the exception that index register 3 is 
saved and reset with the address of the 
Transfer Vector Table before ILS process- 
ing, and restored to the entry value before 
returning to the interrupted program. 
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Light Pen and Order Controlled Attentions 

The light pen is only able to cause 
attentions when the order program has set 
the light pen mode to enable either detects 
or detect interrupts. When a detect inter- 
rupt occurs, DSPYN passes control to GSP08, 
the light pen direct entry subroutine. (In 
the case of an assembler- language program, 
control may pass to a user- defined direct 
entry subroutine.) Control returns to the 
interrupted program through DSPYN if GSP08 
determines that the switch is not closed. 
If the switch is closed, GSP08 then deter- 
mines if the light pen has been enabled. 
If so and if the attention is on an 
index-controlled entity, control is passed 
to GSP11 to determine the relative position 
of the detected element within the entity. 
For either case where the light pen is 
enabled, the branch in the system display 
is set to no-operation. A communication 
word in GCOM is set to inform DSPYN that a 
valid light pen attention has occurred and 
control returns to DSPYN. If the light pen 
is not enabled, control immediately returns 
to DSPYN. In either case, DSPYN tests to 
determine if the light pen is enabled in 
the event a user light pen direct entry 
subroutine was used in place of GSP08. If 
light pen attentions were enabled and the 
attention data area in DSPYN does not 
contain data which has not yet been 
accessed by the main processing program, 
the new attention data is placed in this 
area. In either case, the system display 
is restarted and control returns to the 
interrupted program. 

A special case exists when the 2250 
operator causes an attention by placing the 
light pen on the scanning pattern, the 
tracking symbol, or a level-controlled 
entity. Such an attention is the result of 
the pen mode being set to defer interrupts 
so that a Graphic Interrupt Conditional 
(GIC) order is executed when the light pen 
switch is closed. Although an order con- 
trolled attention has occurred, in the case 
of the scanning pattern it is presented to 
the mainline program as a light pen atten- 
tion. An attention on the scanning pattern 
or the tracking symbol causes GSP08 to pass 
control to GSP09, which is used to discon- 
tinue the display of the scanning pattern 
or update the position of the tracking 
symbol. When control returns to DSPYN 
after an attention caused by the scanning 
pattern the attention data area is filled 
in without inspection; i.e., previously 
saved attention data will be overlaid. The 
system display is restarted and control 
returns to the interrupted program. An 
attention caused by the tracking symbol 
causes the display to be restarted at the 
next sequential order before returning to 
the interrupted program. An attention on a 
level-controlled entity causes GSP08 to 



pass control to GSP12 which determines the 
current and next order addresses at which 
the display will be restarted. 

If it is determined that the attention 
was not on the scanning pattern, tracking 
symbol, or a level- controlled entity, it is 
assumed that it was from a user-generated 
order string. In this case control does 
not pass to GSP09 but returns to DSPYN 
where the attention data area is filled. 
Control returns to the interrupted program 
without restarting the system display. 

Programmed Function Keyboard Attentions 

Attentions from the programmed function 
keyboard (PFKB) are routed through ILSX3 to 
DSPYN. After any direct entry processing, 
GCOM is tested to verify that the PFKB has 
been enabled as a legitimate attention 
source. If the attention data area is 
free, the attention data associated with 
the PFKB attention is placed in the area. 
The system displciy is restarted and control 
returns to the interrupted program through 
ILSX3 . 

Alphameric Keyboard Attentions 

When the 1130 CPU is interrupted from 
the alphameric keyboard, DSPYN determines 
if message-collection mode has been estab- 
lished by a previous call to ICURS. If so, 
the direct entry subroutine GSP07 performs 
the necessary processing and stores graphic 
orders in the message entity which results 
in the letter corresponding to the de- 
pressed key being displayed on the 2250 
screen. Attention data is not made avail- 
able to the program when in message- 
collection mode. 

If message-collection mode is not estab- 
lished, or has been terminated by a call to 
RCURS, and the alphameric keyboard is 
enabled, attentions received from the 
alphameric keyboard are treated similarly 
to attentions received from the programmed 
function keyboard, and attention data is 
stored in the attention area of DSPYN. 



ERROR HANDLING 

Non-I/O error conditions encountered 
within the GSP subroutines may be handled 
in three ways, depending upon the user 
specifications. As each error condition is 
encountered, the internal subroutine GSP01 
(see Figure 14) stores the code associated 
with the error in two fields in GCOM, so 
that at any point in the program the last 
error and all errors encountered are avail- 
able to the program 4 If a user-provided 
error processing subroutine or the GSP 
error processing subroutine IERRS has been 
specified by the subroutine ERRIN, the 
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error processing subroutine gains control. 
Upon return from the error processing sub- 
routine, control is passed to the return 
function of GSP01* If no error processing 
subroutine has been specified, two WAIT 
instructions allow error information to be 
displayed in the accumulator and extension 
lights. The error processing subroutine 
IERRS will cause a print-out of error 
information on the principal print device. 

Although the existence of an error con- 
dition within a subroutine will cause the 
termination of that subroutine, GSP01 
causes control to be passed to the next 



sequential instruction in the external 
calling program so that the program will 
not be interrupted. The location to which 
a subroutine returns (see Figure 15) upon 
encountering an error condition is deter- 
mined by the usage of the save function of 
GSP01 which, when used by a called subrou- 
tine, establishes the address of the next 
sequential instruction (NSI) in the calling 
program. If the save function of GSP01 is 
not called by a subroutine and an error 
condition is encountered, control is passed 
to the address of the last NSI established 
by a called subroutine. 
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Figure 14. Error Handling 
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GSP SUBROUTINES 



The GSP subroutines are divided into 
several groups according to the specific 
functions that each performs. These groups 
are as follows: 

• Initialization and Termination 

• Image Management 

• Image Generation 

• 2 250 I/O Subroutines 

• Attention Enabling and Information 
Retrieval 

• Light Pen Subroutines 

• Alphameric and Text Generation 
Subroutines 

• Attention Processing 

• Error Handling 

• Internal Service Subroutines 

INITIALIZATION AND TERMINATION SUBROUTINES 

This group of subroutines performs a 
number of services that are required prior 
to generating and displaying graphic 
images. Three GSP control areas (see 
Appendix A) are involved in the initializa- 
tion process. Briefly, they are as 
follows : 

GCOM — the principal communications 
area for the GSP. 

ICA preface — pointers and generation 
control data for generating and 
storing image data in the ICA. 

GCA — scaling and scissoring informa- 
tion; increment and indexing values; 
input data specifications and output 
data requirements. 

The subroutines in this group are: 

• GSPIN, which initializes the GSP by 
setting initial values in GCOM. 

• ICAIN, which initializes an ICA preface 
with initial values for image 
generation. 



• GCAIN, which initializes a 
standard values. 



GCA with 



• SSCAL, which sets scaling information. 

• SSCIS, which sets the scissoring option 
(grid or screen) . 

• SINDX, which sets indexing values for 
accessing input arrays. 

• SINCR, which sets increment values for 
coordinate generation. 

• SDATM, which sets the input data mode. 

• SGRAM, which sets the output graphic 
mode* 

The subroutine GSPTM terminates use of the 
GSP. 



GSPIN — Graphic Subroutine Package 
Initialization 

Chart : AA 

Function : To store the address of GCOM in 
COMMA, initialize GCOM, and start regenera- 
tion of the system display. 

Entry : GSPIN 

Exit : Returns to the next sequential 
instruction in the calling program; or for 
certain error conditions (see below) 
returns to the supervisor. 



Input : 

Argument 1 

Argument 2 

Argument 3 

Argument 4 



address of the integer pre- 
cision option. 

address of the real preci- 
sion option. 

address of the error return 
variable. 

address of the cumulative 
errors variable. 



The following six subroutines initialize 
one portion of a GCA: 



Output : See "Function." 

Operation : GSPIN obtains the address of 
GCOM from the Transfer Vector table and 
stores it in the $GCOM field in COMMA. If 
the table contains addresses of subroutines 
whose loading was requested with the +G2250 
card, these addresses are stored in fields 
provided in GCOM. 

Generation control fields in GCOM are 
initialized using the initialization func- 
tion of GSP03. Other fields are initial- 
ized with values provided in the calling 
sequence. All branch orders in the system 
display portion of GCOM are set to perform 
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no-operation. DSPYN is used to 
regeneration of the system display. 



start 



Errors: 

Code 1 - A precision option was not spec- 
ified as or 1. 

The following errors are also detected 
by GSPIN. When one of these errors is 
encountered, a code identifying the error 
is displayed in the accumulator and exten- 
sion lights, and the GSP waits. Depression 
of the start key causes an exit to the 
supervisor. 

ACC, EXT. 



/FFFF 200C - A *G2250 control card has 
not been processed. 

/FFFF 20 0D - The error variable addresses 
are equal. 

Comments : The subroutines whose loading is 
requested with the *G2250 card are GSP05 
(Push-up), GSP06 (Scissor), GCHAR or GUPER 
(Character Stroke Subroutines), GSP11 
(Index- Control led Entity Scan), and GSP12 
(Level-controlled Direct Entry) . 



Define and Initialize : ICAIN constructs 
an ECCB for the ICA and stores its address 
in the ACICA field in GCOM. The addresses 
of the first and last words available 
within the ICA aire stored in fields SAVA 
and EAVA in the ICA preface. Generation 
control fields in the ICA preface are set 
to initial status (see Appendix A, Table 
9) . Where real values are required, FLOAT 
is used to convert integer values to real 
values, and GSP10 is used to store them. 
GSP03 is used to transfer all generation 
control data from the ICA preface to GCOM. 
DSPYN is used to store the address of GSP08 
(direct entry subroutine for light pen and 
order controlled attentions) in fields LDPE 
and OCDE in GCOM. ICAIN chains ICAs as 
they are defined using the ICAPT field in 
the ICA preface. 

Reactivate : ICAIN searches the chain of 
ICA's using the correlation value speci- 
fied. When the specified ICA is found, the 
address of the ICA ECCB is stored in the 
ACICA field of GCOM, thereby making it the 
active ICA and the ELSTA field of the ECCB 
is stored in AICAP. The generation control 
data in the active ICA preface is trans- 
ferred by GSP 03 to GCOM. 



ICAIN -- Image Construction Area 
Initi alization 

Chart : AB 

Function : To define and initialize, or 
reactivate, an image construction area 
(ICA) ; to place the address of GSP08 (Light 
Pen and Order Controlled Direct Entry) in 
GCOM. 



Errors : 

Code 1 - The option code has a value 

other than or 1. 
Code 2 - The correlation value is not in 

the range 1 to 32767. 
Code 3 - The option code is 1 and the 

specified ICA is not found. 
Code 8 - The ICA is less than 28 words 

long. 



Entry : ICAIN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 

Argument 2 

Argument 3 

Argument H 



address of the correlation 

value. 

address of the start of the 

ICA. 

address of the end of the 

ICA. 

address of the option code. 



Ou tput : See "Operation." 

Operation : If an ICA is active, GSP03 
(transfer function) is used to transfer 
data from fields LGXI through OPLST in GCOM 
to fields GENX through LSTMD in the preface 
of the active ICA. The option code (argu- 
ment 4) is tested for the following values: 

= define and initialize an ICA. 

1 = reactivate an ICA. 



GCAIN — Generation Control Area 
Initialization 

Chart : AC 

Function : To initialize a GCA with stan- 
dard values for scaling, scissoring, index- 
ing, incrementation, input data mode, and 
output graphic mode. 

Entry : GCAIN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : Address of the GCA. 

Output : See "Operation." 

Operation : GCAIN first sets the entire GCA 
to zero and then sets only those fields 
requiring non-zero values. The GCA, after 
initialization, contains the following 
values : 
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GLLX, GLLY = integer 

GURX, GURY = integer 1023 

XMSCL, YMSCL = real extended precision 1 

XASCL, YASCL = real extended precision 

XSINC,YSINC,XEINC,YEINC = integer 

XSIND,YSIND,XEIND,YEIND = integer 1 

XIPMD,YIPMD = integer 1 

OPMD = integer 1 

SCIS =■ integer 2 

Refer to Appendix A, Table 8 for a descrip- 
tion of the GCA format. 

The real value 1 stored in XMSCL and YMSCL 
is obtained by having FLOAT convert an 
integer 1. The storing is performed by 
GSP10 . 

Errors ; None. 

SSCAL — Set Scaling Information 

Chart ; AD 

Function ; To set scaling information in a 
GCA. 

Entry : SSCAL 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the GCA. 
Argument 2 - address of the array con- 
taining the scaling data. 

Output : See "Operation." 

Operation ; The real array whose address is 
contained in argument 2 is composed of the 
following elements: 

SXL ~ screen lower-left x-coordinate 

SYL = screen lower-left y- coordinate 

SXU = screen upper-right x-coordinate 

SYU = screen upper-right y- coordinate 

GXL = grid lower-left x-coordinate 

GYL = grid lower-left y- coordinate 

GXU = grid upper-right x-coordinate 



GYU = grid upper- right y- coordinate 

DXL = data lower-left x-coordinate 

DYL = data lower- left y-coordinate 

DXU = data upper- right x-coordinate 

DYU = data upper- right y-coordinate 

SSCAL establishes an indexing value for 
accessing the array elements according to 
the program's precision for real values. 
GSP10 is used to access the array elements 
and perform calculations in extended preci- 
sion. The fields in the GCA set by SSCAL 
and the equations used to calculate the 
values for each field are as follows : 

Field Description 

GLLX grid lower- left x-coordinate in 
raster units (integer) 

GLLY grid lower- left y-coordinate in 
raster units (integer) 

GURX grid upper- right x-coordinate in 
raster units (integer) 

GURY grid upper-right y-coordinate in 
raster units (integer) 

XMSCL x-coordinate multiplication scal- 
ing factor (real) 

XASCL x-coordinate addition scaling fac- 
tor (real) 

YMSCL y-coordinate multiplication scal- 
ing factor (real) 

YASCL y-coordinate addition scaling fac- 
tor (real) 

Equations 

1. GLLX = 1023 * (GXL- SXL) 



(SXU-SXL) 
2. GLLY = 1023 * (GYL-SYL) 



(SYU- SYL) 
3. GURX = 1023 * (GXU-SXL) 



(SXU-SXL) 

4. GURY = 1023 * (GYU-SYL) 

(SYU- SYL) 

5. XMSCL = 1023 * (GURX-GLLX) 



(DXU-DXL) 
6. XASCL = GLLX - DXL (GURX-GLLX) 



(DXU-DXL) 

7. YMSCL = (GURY-GLLY) 

(DYU- DYL) 

8. YASCL = GLLY - DYL (GURY- GLLY) 



(DYU- DYL) 
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IFIX is used to convert the results of 
equations 1 through 4 to integer values. 
GSP10 is used to store all results in the 
GCA. 

Errors ; 

Code 1 - An element in the scaling array 
is invalid because it does not 
meet the following requirements: 

SXU > GXU > GXL > SXL 



Operation : The INPRE (integer precision) 
field in GCOM is examined in order to 
correctly access the array containing the 
index values. If the index values are all 
positive integers, they are stored in the 
start and end index fields of the GCA. 

Errors : 

Code 1 - One or more elements in the 
index array contain zeros or 
negative values. 



or 
SYU > GYU > GYL > SYL 

SSCIS; — Set Scissoring Option 
Chart : AE 



SINCR — Set Increment Values 



Chart : AE 

Function : To set values in the GCA that 
are used as increments for generating coor- 
dinates for points, lines, or line 
segments. 



F unction : To set the scissoring option in Entry : SINCR 



a GCA so that scissoring occurs at either 
the grid or screen boundaries. 

E ntry : SSCIS 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 



address of the GCA. 
address of the value indi- 
cating the scissoring 
option. 



O utput : See "Operation." 

Operation : SSCIS places a value (1 or 2) 
for the option in the SCIS field of the 
GCA. 

Errors: 

Code 1 - The value specified for the 
scissoring option is not 1 or 2. 



SINDX — Set Index Values 

C hart : AE 

F unction : To set values in the GCA that 
are used to access data from input arrays. 

E ntry : SINDX 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

I nput : 

Argument 1 - address of the GCA. 
Argument 2 - address of the array con- 
taining the index values. 

O utput : See "Operation." 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 



address of the GCA. 
address of the array con- 
taining the increment 
values . 



Output : See "Operation." 

Operation : The RLPRE (real precision) 
field in GCOM is examined in order to 
properly access the array containing the 
increment values. The increment values are 
then stored in the start and end increment 
fields in the GCA. 

Errors: None. 



SDATM — Set Input Data Mode 

Chart : AE 

Function : To set the input data mode in a 
GCA for accessing and using data from the 
user's input arrays. 

Entry : SDATM 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 



address of the GCA. 

address of the value for 

setting the x-coordinate 
mode . 

Argument 3 - address of the value for 

setting the y-coordinate 
mode. 
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Output : See "Operation. 



Entry : GSPTM 



Operation ; SDATM tests the mode arguments 

and, if valid, uses the values to set 

fields XIPMD and YIPMD in the GCA. The 

valid mode arguments and their meanings 
are: 

1 = real absolute 

2 = real incremental 

3 = integer absolute 

4 = integer incremental 

5 = integer absolute in 2250 raster units 

Errors : 

Code 1 - One of the mode arguments is not 
a positive integer in the range 
1 through 5. 

SGRAM -- Set Output Graphic Mode 

Chart : AE 

Function : To set the output graphic mode 
in a GCA for generating absolute, incre- 
mental, or optimized data. 

Entry : SGRAM 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the GCA. 
Argument 2 - address of the value used to 
set the output graphic mode. 

Output : See "Operation." 

Operation : SGRAM tests the validity of the 
value for setting the output graphic mode. 
Any of the following is valid: 

1 = optimized 

2 = absolute 

3 = incremental 

If valid, the value is stored in the OPMD 
field of the GCA. 

Errors: 

Code 1 - The value for setting the output 
graphic mode is not in the range 
1 through 3. 

GSPTM — Graphic Subroutine Package 
Termination 

Chart : AF 

Function: To terminate use of the GSP. 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : None. 

Output : None. 

Operation : GSPTM uses DSPYN to turn off 
programmed function keyboard lights and to 
reset the 2250. The ICA chain is discon- 
nected by storing zeros in all ICA point- 
ers. GSPTM then sets to zero the LPDE and 
OCDE fields in GCOM to ensure that all GSP 
activity is stopped. 

Errors: None. 



IMAGE MANAGEMENT SUBROUTINES 

The primary service of image management 
subroutines, to establish or modify the 
structure of graphic elements in a GSP 
program, is accomplished by BELMT, EELMT, 
DELMT, XELMT, and UELMT. They provide a 
means of working with an image construction 
area and changing its format to suit par- 
ticular needs, while maintaining an economy 
of core storage. The secondary services 
provided by the image management subrou- 
tines BXGEN, EXGEN, and IELMT allow genera- 
tion outside of an ICA, while IDPOS and 
RDPOS allow updating of elements with 
incremental input, and STPVS and SATRB 
allow the program to change the attributes 
of elements. The image management subrou- 
tines and their functions are: 

• BELMT, which defines the beginning of a 
controlled, uncontrolled, level con- 
trolled, index controlled, subroutine, 
or image entity. 

• EELMT, which defines the end of an 
element whose beginning was specified 
by BELMT or UELMT, or which was 
extended by XELMT. 

• DELMT, which identifies an element that 
is to be deleted. 

• UELMT, which identifies an element 
whose content is to be modified by 
subsequent image generation subrou- 
tines. 

• XELMT, which identifies an element 
whose content is to be extended by 
subsequent image generation subrou- 
tines. 

• SATRB, which sets one or both of the 
attributes of a controlled entity. 
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• STPVS,, which changes the GSP 
tion setting. 



verif ica- 



IDPOS, which indicates the coordinates 
of the next element for scissoring 
after use of a linkage entity or when 
modifying an existing element. 



• RDPOS, which saves the 
x- and y- coordinates. 



last generated 



• GSP 04, which moves all non-deleted ele- 
ments to lower core locations overlay- 
ing core previously occupied by ele- 
ments indicated as deleted. 

• GSP05, which moves elements following a 
specified element to higher core loca- 
tions to allow for the extension of the 
specified element. 

The following subroutines are used by the 
Assembler-language programmer: 

• IELMT, which builds an ECCB for an 
element that is external to the image 
construction area. 

® BXGEN, which causes the GSP to enter 
external generation mode, thus allowing 
the generation of orders outside of an 
ICA. 

» EXGEN, which causes the GSP to end 
external generation mode. 



BELMT — Begin Element 
Chart : BA 



Funct ion : 



To specify the type, name, and 
beginning for an image, controlled, level- 
controlled, index-controlled, uncontrolled, 
or subroutine entity- 
Entry : BELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 - 

Argument 2 - 



address of the correlation 
value. 

address of a code identify- 
ing the type of element. 



Output : See "Operation." 

Operation : For an uncontrolled, con- 
trolled, level-controlled, index- 
controlled, or image entity, BELMT requests 
the build function of GSP03, passing the 
correlation value and a code identifying 
the type of element. For a subroutine 
entity, it first sets the SUBM field in 
GCOM, requests the transfer function of 



GSP03, and requests the generation of over- 
head orders by GSP02 before requesting the 
build function. After the ECCB for the 
element has been built, BELMT requests the 
storing of overhead orders by GSP02, as 
follows: 



Element 
Uncontrolled 
entity 



O rders Reason 
None 



Controlled SPM 

entity and GB 
Index- control led 
entity 



Level -controlled GB 
entity 



Subroutine 
entity 



Image entity 



GSB 



SVRT 



GB 



SRVT 



SRVT 



Enable detects 
Branch around the 
element when its 
visibility attribute 
is non-display. 

Branch around 
element when its 
visibility attribute 
is non-display. 
Branch to left 
bracket of verifica- 
tion subroutine in 
GSP12. 

Return linkage to 
right bracket of 
verification subrou- 
tine in GSP12. 

Protective branch 
around the 
subroutine. 
Return linkage to 
the main order 
program. 

Return linkage to 
the system display. 



Errors 
Code 



- The code identifying the element 
type is not in the range 1 to 6. 

Code 2 - The correlation value is not in 
the range 1 to 32767; or The 
correlation value has been pre- 
viously defined. 

Code 9 - The generation mode is external. 



EELMT — End Element 
Chart : BB 

Function : To define the end of one or more 
elements . 

Entry : EELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : Address of the correlation value of 
the element to be ended. 

Output: None. 
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Operation : EELMT finds the ECCB for the 
element currently being processed (CCB in 
GCOM) and, if it is a controlled, level- 
controlled, index- controlled, subroutine, 
or image entity, EELMT loads overhead 
orders which are stored in the ICA by 
GSP02 . The element is then indicated as 
ended, and its start address is compared 
with the address of the element specified 
to be ended. If the ended element is not 
the specified element, the next outer ele- 
ment is found by the search function of 
GSP03 and processed as above. When the 
specified element is ended, the GSP's mode 
is determined by examining GENIN in GCOM. 
If the mode is update and there is unused 
area remaining in the element, the build 
function of GSP03 builds an ECCB with a 
correlation value of /FFFF for this area. 
GSP02 stores overhead orders in the unused 
area, and DLCNT is incremented by one. The 
element pointers (NAGAP, LAGAP, and CCB) 
are updated,, the mode indicator GENIN is 
set to normal, and the processing message 
displayed by UELMT is discontinued. If the 
GSP's mode is normal, the current control 
block pointer (CCB) in the ICA preface is 
updated. 



given this incomplete image 



For example, 
structure: 

12 3 
{ ( ( 



The statement CALL EELMT (1) produces: 
{ ( ( ) ) > 



Subroutine 
entity 

Image 
entity 



verification subrou- 
tine in GSP12. 

GB I Return linkage to 

main order program. 

SGMV Sets vector mode. 

MBA Positions beam. 

GB N Branch to tracking 
entity. 

GB N Branch to current 
rubberband vector in 
GSP09. 

GB I Return linkage to 
system display. 



Errors: 



Code 2 
Code 3 



The correlation value is not in 

the range 1 to 32767. 

The correlation value does not 

refer to an element begun by 

BELMT. 
Code 9 - EELMT has been called while the 

GSP was in external generation 

mode. 
Code 16 - The element has already been 

ended; or 

the element is not in the 

limits specified by ELSTA and 

ELEND of the current update 

ECCB. 



DELMT — Delete Element 



Whereas the statement CALL EELMT 
produces: 

{ ( ( ) 



(3) 



Chart : BC 



Function : 
elements . 



To delete one or more defined 



See the "Overview" of IBM 1130/2250 Graphic 
Subroutine Package for Basic FORTRAN IV 
(C27-6934) for an explanation of the sym- 
bols used above. 

An element is ended by storing certain 
overhead orders at the end of the element 
and updating the element end address 
(ELEND) and element indicator (INDIC) in 
the element's ECCB. The selection of over- 
head orders depends on the element type, as 
follows: 



SPM 



Element 
Uncontrolled 
entity 

Controlled 

entity and 
Index -controlled 

entity 



Level -controlled GB I 
entity 



Orders Reason 
None 



Disable detects, 



Return linkage to 
right bracket of the 



Entry : DELMT 

Exit : Returns through GSP 01 to the next 
sequential instruction in the calling sub- 
routine or program. 

Input: The address of the correlation 
value of the element to be deleted. 

Output : None. 

Operation : GSP03 searches for the ECCB of 
the element to be deleted. INDIC in the 
ECCB is tested to determine the type of 
element. If the element is an included 
element (a subroutine identified by IELMT) , 
the ECCB for this element is placed on the 
available chain and its correlation value 
set to zero. 

If the element is a subroutine entity, 
the start address is decremented by two to 
include the overhead orders preceding the 
element. Any type of element, other than 
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an included element, must have been ended 
before it may be deleted. 

When an element has been deleted, its 
correlation value in the ECCB is set to 
hexadecimal FFFF, and the delete count 
(DLCNT) in the ICA preface is incremented 
by one. Any ECCBs which point to elements 
nested within the deleted area are put on 
the available chain. The correlation 
values in them are set to zero to indicate 
that they may be reused. 



Error s : 



in 



Code 2 - The correlation value is not 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 6 - The element is not ended (not 

applicable to an included 

element) . 
Code 9 - The generation mode is external. 



If the forward pointer of the ECCB for 
the specified element, or any ECCB whose 
element is nested within the specified 
element, is zero, NCBAU in the ICA preface 
is set to zero. Otherwise, NCBAU is loaded 
with the address of the next ECCB after the 
ECCB for the specified element. 

Note : The update function is ended by a 
call to EELMT in the problem program. 



Errors : 



type is not in the 



Code 1 - The element 

range 1-6. 
Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 6 - The element found is not ended. 
Code 7 - There is no active ICA. 
Code 9 - The GSP is already in update or 

external generation mode. 



UELMT - : - Update Element 

Charts ; BD, BE 

Function : To modify an element and its 
ECCB so that new orders may be stored in 
the element and any elements nested within 
it. 

Entry : UELMT 

Exit: Returns through GSP01 to the next 
sequential instruction in the calling sub- 
routine or program. 



XELMT — Extend Element 



Chart : BF 



Input : 
Argument 



of the correlation 



1 - address 
value. 
Argument 2 - address of the element type. 

Output : None. 

Operation : UELMT tests the validity of the 
element type and correlation value, and 
tests ACICA in GCOM to ensure that there is 
an active ICA. GSP03 searches for the 
element specified by argument 1 and further 
tests are made to ensure that the element 
is ended and that GSP is not in update or 
external generation mode. 

If there is an active display, it is 
replaced by a processing message, and DELMT 
is entered. Upon return, the generation 
mode is set to update, and GSP03 transfers 
generation control data from GCOM to the 
ICA. The pointers in the ICA are modified, 
and DLCNT (which had been incremented by 
one in DELMT) is decremented by one. NAGAP 
and LAGAP in GCOM are set to reflect ELSTA 
and ELEND in the ECCB. INDIC is changed to 
show the new element type, and new overhead 
orders are stored in the element. GNOP 
orders are stored in the remainder of the 
element. 



Function : To indicate an element that is 
to be extended. 

Entry : XELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 

value. 
Argument 2 - address of the value esti- 
mating the number of lines, 
points, or line segments by 
which the element is to be 
extended. 

Output : None. 

Operation : XELMT tests ACICA in GCOM to 
ensure that there is an active ICA and 
tests the validity of the two arguments, 
storing the estimated number (Argument 2) 
in ICNTR. GSP03 then searches for the ECCB 
specified by argument one. Tests are made 
to ensure that the element type is valid, 
that the element is ended, and that the 
generation mode is not update or external. 
GENIN in GCOM is set to indicate update 
generation mode, and GSP03 transfers 
generation control data from GCOM to the 
ICA preface and initializes GCOM with stan- 
dard values. NAGAP, LAGAP, and CCB are 
saved in NAVWD, EAVA, and SCCB, respective- 
ly, and the ECCB address is stored in CUCB 
and CCB. LAGAP and NAGAP are modified to 
point to the end of the element area 
referred to by the ECCB and the beginning 
of the area to which graphic orders will be 
moved . 



3<* 



If there is an image being displayed, it 
is replaced by a processing message- GSP05 
pushes up the words in the ICA to provide 
the area for extending the element. 



Errors: 



(LPC count) is 



Code 1 - Argument 2 

invalid. 
Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 4 - The element type is invalid. 
Code 6 - The element has not been ended. 
Code 7 - There is no active ICA. 
Code 9 - The GSP is already in update or 

external generation mode., 



IELMT. --- Include Element 



Chart : BG 

Function : To build an ECCB for an element 
generated in external generation mode. 

Entry : IELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 

value. 
Argument 2 - address of the first order 

in the included element. 
Argument 3 - address of the last order in 

the included element. 



Input : 

Argument 1 - address of the generation 

area. 
Argument 2 - address of the length of the 

generation area. 
Argument 3 - address of the one- word 

field to hold the count of 

the number of words 

generated. 
Argument 4 - address of the one-word 

field to hold the count of 

the number of words not 

generated. 

Output: See "Operation." 

Operation : GENIN is tested to ensure nor- 
mal mode and the length argument is tested 
to ensure a value in the range 1-32767. 
ACICA (in GCOM) is checked to see if there 
is an active ICA. If so, GSP03 transfers 
generation control data from GCOM to the 
ICA preface, and NAGAP and LAGAP are saved 
in the ICA preface. For either condition 
of ACICA (active or inactive ICA) , the 
necessary indicators in GCOM are initial- 
ized to prepare for external generation 
(NAGAP=Arg 1, LAGAP=ARG 1 + Arg 2 - 1, 
external generation count=0, external non- 
generation count=0, EGCA=Arg 3, ENGCA=Arg 
4, GENIN=2). 



Errors : 
Code 1 

Code 9 



The length of the generation 
area is not greater than 0. 
BXGEN is entered with the 
generation mode already set for 
external generation. 



Output : See "Function." 

Operation : If the arguments are valid and 
there is an active ICA, GSP03 builds an 
ECCB for a subroutine entity in the active 
ICA. 

Error : 

Code 1 - The start or end address is 

invalid. 
Code 2 - The correlation value is not in 

the range 1 to 32767. 



BXGEN -- Begin External Generation 

Chart : BH 

Function : To enable the Assembler-language 
programmer to use GSP image generation 
subroutines to generate graphic data out- 
side of an ICA. 

Entry : BXGEN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



EXGEN — End External Generation 

Chart : BJ 

Function : To enable the Assembler-language 
programmer to end the generation of graphic 
data outside of an ICA. 

Ent ry: EXGEN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : None. 

Output : None. 

Operation : If ACICA is non-zero, indica- 
ting an active ICA, NAGAP and LAGAP are 
restored from the ICA preface, and GSP03 
transfers data from the ICA preface to 
GCOM. For either condition of ACICA, the 
external generation count and the external 
non -generation count are reinitialized to 
zero, and GENIN is set to (normal genera- 
tion mode) . 
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Errors ; 

Code 9 - EXGEN is entered when the 
generation mode is not external. 



SATRB -- Set Controlled Entity Attributes 



Chart : BK 

Function ; To change the visibility and 
detectability attributes of a controlled, 
index-controlled, or level -controlled 
entity. 

Entry : SATRB 

Exi t: Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 

value. 
Argument 2 - address of the visibility 

attribute. 
Argument 3 - address of the detectability 

attribute. 

Output : Orders are stored in the con- 
trolled entity as described in "Operation." 

Operation ; GSP03 is used to locate the 
ECCB for the indexed, level-controlled, or 
controlled entity. The element's attri- 
butes are then set in accordance with the 
specified attributes. A visibility argu- 
ment of -1 results in a graphic branch 
indirect order being stored in the second 
word of the element. This causes a branch 
to the end element address when the order 
program is being executed, resulting in the 
controlled entity not being displayed. A 
visibility argument of +1 results in a 
graphic branch indirect order with the 
no-operation bit set to be inserted in the 
second word of the element. This permits 
display of the entity. For a controlled or 
indexed entity, a detectability of -1, an 
SPM /4 order is stored in the first word of 
the element resulting in the disabling of 
light pen detects. A detectability argu- 
ment of +1 causes an SPM /A order to be 
stored in the first word of the element 
resulting in the enabling of light pen 
detects. For a level-controlled entity, a 
detectability argument of -1 results in the 
storing of a GSB to the left bracket 
non-detect routine. A detectability of +1 
results in the storing of a GSB to the left 
bracket immediate detect routine. A detect- 
ability argument of +2 results in the 
storing of a GSB to the left bracket 
verification routine. A visibility or 
detectability argument of results in no 
change to the detectability or visibility 
attribute. 



Errors: 

Code 1 - An attribute argument (2 or 3) 
is invalid. 

Code 2 - The correlation value is not in 
the range 1 to 32767. 

Code 3 - The ECCB was not found by GSP03. 

Code 4 - The element is not a controlled, 
level- controlled, or index- 
controlled entity. 

Code 6 - The element is not ended. 



STPVS — Step Verification Setting 

Chart : BL 

Function : To change the level at which 
verification occurs on nested level- 
controlled entities. 

Entry : STPVS 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : Address of the value indicating the 
type of change as follows: negative 
number=step down one level (5 is lowest or 
least inclusive) positive number=step up 
one level (1 is highest or most inclusive) 
zero=reset to level one. 

Output : See "Operation." 

Operation : STPVS ensures that the Verifi- 
cation Direct Entry subroutine (GSP12) is 
loaded and saves the contents of the veri- 
fication level indicator (VERLN in GCOM) . 
If VERLN is 1 and a step up is indicated, 
or if VERLN is 5 and a step down is 
indicated, no further processing occurs. 
If a step up is indicated, VERLN is incre- 
mented by 1. If a step down is indicated, 
VERLN is decremented by 1. If a reset is 
indicated, VERLN is set to 1. 

The saved VERLN is used as an index to 
set the present verification, detect, and 
no detect bracket subroutines in GSP12 to 
perform no operation. The adjusted VERLN 
is used as an index to insert the graphic 
control orders in the new level bracket 
subroutines which will make the subroutines 
operational. 

Errors: Code 8 - GSP12 is not loaded. 



IDPOS — Indicate Element Position 



Chart: None. 



Function: 



To indicate to the GSP the 



starting point from which subsequent x- and 
y-coordinates are to be computed. 
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Entry : IDPOS 



Output ; None. 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input ; 

Argument 1 - 
Argument 2 - 
Argument 3 • 

Outpu t ; None, 



address of the GCA. 

address of the x-coordinate, 

address of the y-coordinate. 



Operation : IDPOS requests the GSP02 
generation function to replace the values 
in the last-generated and last- computed 
fields of GCOM (LGXI through LCYI) with the 
x- and y-coordinates that were passed to 
IDPOS by the program. 

Errors: None. 



RDPOS — Read Position 

Chart : None. 

Function : To place the 
and y-coordinates in 
array. 



last-generated x- 
a program-defined 



Entry : RDPOS 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : The address of the first element of 
a 2 -element integer array. 

Output : See "Operation." 

Operation : The contents of fields LGXI and 
LGYI in GCOM are stored in a 2- element 
integer array. The address of the second 
element of the array is computed using the 
integer precision (INPRE) field in GCOM. 

Errors: None. 



GSP04 — Push Down 



Chart : BM 



Function : To make area available in the 
active ICA when the ICA is completely full, 
but contains elements indicated as deleted. 

Entry : GSP04 

Exit : Returns to the next sequential 

instruction in the calling subroutine 

through the address stored in the entry 
word. 

Input : None. 



Operation : If the generation mode is up- 
date, a processing message will already 
have been displayed. If the generation mode 
is normal and the ICA which is the subject 
of the push-down contains an image entity 
currently being displayed, a switch is set, 
the address of the processing message is 
stored in the system display, and DSPYN 
starts regeneration of the system display. 
This prevents movement of data in the ICA 
while the image entity is being displayed. 

If DLCNT (delete count) in the ICA 
preface is zero, the push-down function is 
completed. If the switch (above) is set, 
the linkage to the processing message is 
terminated, and the previously displayed 
image entity is restored. 

If DLCNT is non-zero, the active ECCB 
chain is searched for an ECCB for a deleted 
element. The element start and end (ELSTA 
and ELEND) addresses in the ECCB are saved 
as pointers. If the ECCB was for a subrou- 
tine, its ELSTA pointed to the third word 
rather than the first, and the saved ELSTA 
is decremented by two. All graphic orders 
in higher core positions are moved to lower 
core positions, overlaying the area of the 
deleted element. 

The ECCB for the deleted element is 
removed from the active chain, and the 
forward pointer index of the prior ECCB is 
updated to hold the contents of the removed 
ECCB's forward pointer index. The ECCB for 
the deleted element is then inserted into 
the available chain. 

Since the deleted element may have been 
nested within other elements, the entire 
active ECCB chain is searched for ECCBs 
affected by the push- down. Those elements 
which contained the deleted element have 
their ELEND updated. Those which did not 
contain the deleted element but were 
affected by the push-down have ELEND and 
ELSTA updated by the same factor. Any 
image, level controlled, or subroutine 
entities in the active ECCB chain have 
their graphic branch orders adjusted to 
reflect the current location of the second 
word of their SRVT order. 

DLCNT in the ICA is decremented by one, 
and the process is repeated beginning with 
the test of DLCNT. 

Errors: None. 



Note : If the ECCB for the deleted element 
the lowest core position of all 
its four word area is added to the 
generation area, not to the 
ECCB chain. The higher core 

and limited 



is in 

ECCBS , 

available 

available 

orders as pointed to by ELEND 



GSP Subroutines 37 



by the last available generation area 
pointer (LAGAP) are pushed down to the 
address indicated by ELSTA. Neither ELSTA 
nor ELEND is altered. The next available 
generation area pointer (NAGAP) is then 
updated to reflect the new location for 
storing orders. 



GSP05 -- Push Up 

Cha rt; BN 

Function : To make area available in the 
active ICA for extending an element. 

Entry: GSP05 

Exit : 

Normal - Returns to the calling subrou- 
tine through the address stored 
in the entry word. 

Error - Returns to the mainline program 
through GSP01. 

Input : None. 

Output : None. 

Operation : A normal push-up moves the 
words immediately following the element to 
be extended (pointed to by CUCB) to higher 
core positions,, the distance of which is 
specified by INCTR (in GCOM) . Thus, a 
"gap" equal to INCTR in length remains 
immediately following the element being 
extended. This "gap" is filled with GNOP 
orders. The element start and end 
addresses (ELSTA and ELEND) in the ECCBs of 
the moved words are updated to reflect 
their new locations. The branch through 
the SRVT order in level controlled, image, 
and subroutine entities is updated. If 
INCTR is greater than the available area, 
the words are moved to the limit of the 
available area. 

When an ECCB points to a deleted element 
following the element to be extended and it 
will provide sufficient area for the exten- 
sion, the area limited by the ECCB is 
filled with GNOP orders. If the ECCB for 
the deleted element is at the end of the 
active ECCB chain (lowest core position), 
its area is added to the available genera- 
tion area. Otherwise, it is added to the 
chain of available ECCBs. 

Errors: 

Code 5 - There are no ECCBs for deleted 
elements, and no available area 
in the ICA. 



IMAGE GENERATION SUBROUTINES 

The image generation subroutines PLINE/ 
PPNT/PSGMT, PTEXT, PGRID, and MVPOS convert 



input data to 2250 format using specifica- 
tions in the generation control area. The 
converted data is stored in the image 
construction area. The generation function 
of GSP02 generates the orders for MVPOS and 
PLINE/PPNT/PSGMT. Other orders are 
generated by the subroutines themselves and 
stored by GSP02. The following is a list 
of the image generation subroutines and 
their functions: 

• MVPOS, which establishes the starting 
coordinates for the next element. 

• PLINE/PPNT/PSGMT, which converts input 
data to 22 50 format for plotting lines, 
points, or line segments* 

• PTEXT, which converts input data to 
2250 format for plotting characters. 



• LKSUB, which establishes linkage 
subroutine or tracking entity. 

• PGRID, which generates data 
format to plot the rectangular 
of a grid. 



to 



in 2250 
outline 



• PCOPY, which generates a copy of an 
element at another place in an image or 
subroutine entity. 

• GSP02, which is the primary subroutine 
for generating orders. It consists of 
(1) text function; (2) store function; 
(3) generation function; and (4) incre- 
ment function. 

• GSP06, which computes the coordinates 
at which a vector crosses a screen or 
grid boundary so that that part of the 

vector which is external to the bound- 
ary will not be displayed. 



MVPOS — Move Element to a Position 



Chart : CA 

Function : To generate data, in either 
absolute or incremental mode, to position 
the beam at some location on the 2250 
screen without creating an image. 

Entry : MVPOS 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 
Argument 3 
Argument 4 



address of the GCA. 
address of the x- coordinate, 
address of the y- coordinate, 
address of the correlation 
value. 
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Output ; See "Operation." 



Operation : If the correlation value is 
zero, an SGMV order is placed, if neces- 
sary, in the ICA by the store function of 
GSP02. The generation function of GSP02 
then generates positioning orders for the 
coordinates specified by arguments 2 and 3. 
If the correlation value is non-zero, the 
search function of GSP03 attempts to find 
the ECCB for the element. If this is a new 
element, the build function of GSP03 
creates an ECCB for an origin entity, and, 
using the store function of GSP02, places 
an SGMV order in the ICA. The generation 
function of GSP02 generates positioning 
orders using the specified coordinates. 

If the search function of GSP03 finds 
the ECCB for an origin entity and it is not 
three words in length, or if the element is 
three words long and the output mode is 
incremental, UELMT updates the element, and 
an SGMV order is placed in the ICA by the 
store function of GSP02. The generation 
function of GSP02 generates positioning 
orders for the specified coordinates, and 
EELMT ends the update function. The ECCB 
for the element is then modified to indi- 
cate that the element is an origin entity 
(see "Comments" below) . 

If the element is three words long and 
the output mode is not incremental, NAGAP 
and LAGAP are stored, and the generation 
function of GSP02 updates the origin enti- 
ty. NAGAP and LAGAP are restored, and 
GSP03 restores the normal mode by transfer- 
ring generation control data from the ICA 
preface to GCOM. 



Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
subroutine. 



Input ; 

For PLINE and PPNT 

Argument 1 - address of the GCA. 

Argument 2 - address of the x-coordinate 

array. 
Argument 3 - address of the y-coordinate 

array. 
Argument 4 - address of the count. 



For PSGMT 
Argument 1 
Argument 2 

Argument 3 

Argument 4 

Argument 5 

Argument 6 



address of the GCA. 
address of the x-starting 
coordinate array, 
address of the y-starting 
coordinate array, 
address of the x-end coor- 
dinate array. 

address of the y-end coor- 
dinate array, 
address of the count. 



Errors ; 

Code 2 - The correlation value is not in 

the range 1 to 32767. 
Code H - The ECCB found by GSP03 is not 

for an origin entity. 

Comments ; When UELMT updates an origin 
entity, it treats the element as an uncon- 
trolled entity. MVPOS modifies the INDIC Errors : 
field of the ECCB to indicate that it is an Code 1 
origin entity. 



Output ; See "Operation. " 

Operation ; The subroutine determines from 
the MDLST field in GCOM whether or not a 
graphic mode order (SGMV or SGMP) is 
needed. If so, the appropriate order is 
stored in the ICA by the store function of 
GSP02, and MDLST is updated to reflect the 
new graphic mode. Generation of orders is 
then performed by the generation function 
of GSP02. The ICNTR field in GCOM is used 
to indicate to GSP02 the number of lines, 
points, or line segments to be generated. 

Comments : At each entry point an indexing 
value is loaded into index register z, and 
control is passed to common coding. The 
common coding uses indexing to access those 
constants that are appropriate for line, 
point, or line segment plotting. The con- 
stants are arranged to facilitate this 
technique. 



The count is not 
1-32767. 



in the range 



PLINE/PPNT/PSGMT — Plot Lines. Plot 
Points,, Plot Line Segments 

Chart : CB 

Function : To generate orders for plotting 
lines, points, or line segments. 

Entry : 

PLINE - for Plot Lines 

PPNT - for Plot Points 

PSGMT - for Plot Line Segments 



PTEXT — Plot Text 



Chart : CC 



Function ; To generate graphic data to 
produce characters and symbols. 

Entry : PTEXT 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 
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Input ; 

Argument 1 
Argument 2 

Argument 3 

Argument 4 

Argument 5 



address of the GCA. 

address of the first 

character. 

address of the count of the 

characters, 

address of the character 

size code. 

address of the text code. 



Output : See "Operation." 

Operation : PTEXT tests the count and, if 
valid, stores the count in ICNTR and builds 
a character mode order which is stored in 
the ICA by GSP02. GSP02 text function 
generates the required GSBs and stores them 
in the ICA. A GNOP order is then generated 
to terminate character mode, and GSP02 
stores it in the ICA. 

Errors : 

Code 1 - The count is not positive; or 

the size is greater than two; or 
the text code is not in the 
range 1-4. 

Code 8 - GCHAR is not loaded. 



LKSUB .-— Linkage to a Subroutine 

Charts : CD,CE 

Function : To provide linkage to one of the 
following: 

• subroutine entity 

• tracking entity 

• subroutine generated outside an ICA 

The linkage may be named or unnamed, active 
or inactive; a previously named linkage 
entity may be updated. 

Entry : LKSUB 

Exi t: Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 
value for the element being 
linked to. 

Argument 2 - address of the correlation 
value for the linkage 
entity. 

Argument 3 - address of the switch argu- 
ment (active/inactive). 

Output: A graphic branch or graphic branch 
no- operation order is stored in ICA. 

Operation : LKSUB determines which of the 
following services is requested: 



• Create an unnamed linkage entity — 
indicated by a zero correlation value 
for argument 2. 



• Create a named linkage entity — indi- 
cated by an unassigned correlation 
value for argument 2. 

• Update a linkage entity — indicated by 
a correlation value previously assigned 
to a linkage entity for argument 2. 

Unnamed linkage : The GSP03 search func- 
tion locates the ECCB for the element being 
linked to. The address in the ELSTA field 
of the ECCB is stored in the address 
portion of a Graphic Branch order, and 
GSP02 is used to store the order in the 
ICA. 

Named linkage : The GSP03 search func- 
tion locates the ECCB for the element being 
linked to if a correlation value is given 
in the calling sequence for argument 1. 
The address in the ELSTA field of the ECCB 
is stored in the address portion of a 
Graphic Branch order. GSP03 is then used 
to build an ECCB for the linkage entity. 
If the switch argument specifies an inac- 
tive - linkage (graphic branch no-op) or if 
the calling sequence does not provide a 
correlation value for the element to be 
linked to, the no-operation bit in the 
Graphic Branch order is set. GSP02 is used 
to store the Graphic Branch or graphic 
branch no-operation order in the ICA. The 
ELEND and INDIC fields of the ECCB for the 
linkage entity are then updated. 

Update : GSP03 locates the ECCB for the 
element to be updated and the ECCB for the 
element to be linked to. If the calling 
sequence does not provide a correlation 
value for the element to be linked to, the 
address portion of the Graphic Branch in 
the old linkage is used to find the ECCB. 
The address of the element to be linked to 
is placed in the address portion of a 
Graphic Branch order. If the switch argu- 
ment specifies an inactive linkage, the 
no-operation bit in the order is set. The 
order is then stored in the ICA, overlaying 
the old Graphic Branch. 



Errors : 

Code 1 - The switch argument is not 1 or 

2. 
Code 2 - One of the correlation values is 

not in the range 1 to 32767. 
Code 3 - The correlation value for the 

element being linked to is not 

defined. 
Code 4 - The element being linked to is 

not one of the types for which a 

linkage can be generated. (See 

types under "Function.") 
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PGRID — Plot Grid Outline 

Chart : CF 

Function : To provide for the generation of 
orders for displaying the four sides of a 
grid on the 2250 screen. 

Entry : PGRID 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : Address of the GCA. 

Output : See "Operation." 

Operation : The start address of the 
generation control area (GCA) is determined 
and stored. The x- input mode is saved and 
XIPMD is set to integer absolute in 2250 
raster units. The grid limits are deter- 
mined from words 0-4 in the GCA and stored 
for the generation of orders. GSP02 stores 
a Set Graphic Mode Vector (SGMV) overhead 
order, if necessary, and the increment 
function of GSP02 generates a Move Beam 
Incremental order to the lower left limits 
of the grid. The generation function of 
GSP02 then generates the orders that will 
display the specified grid. XIPMD is 
restored. 

Errors: None. 



PCOPY — Plot Copy of an Element 
Chart : CG 



Function : To copy the graphic data 

for a previously defined element 

it as all or part of the 



generated 

and include 

graphic data for the current element. 



Entry : PCOPY 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program . 

Input : The address of the correlation 
value of the element to be copied. 

Output : See "Operation." 

Operation : PCOPY ensures the validity of 
the correlation value, and GSP03 finds the 
ECCB for the element to be copied. Point- 
ers reflecting the limits of the data are 
set using ELSTA and ELEND as bases and 
adjusting ELEND to eliminate overhead 
orders dependent on element type (e.g.; 
image entity — ELEND minus 8; subroutine 
entity — ELEND minus 2). A "to" pointer 
is set to NAGAP and the "from" pointer to 
ELSTA. Each order is examined. Overhead 



orders are ignored and the "from" pointer 
is incremented to the next order. Non- 
overhead orders are copied into the current 
element, and the "to" and "from" pointers 
are incremented for the next order. When 
the specified element has been copied into 
the current element, NAGAP in GCOM is 
updated. 



Note : Copied elements do not affect the 
attributes of the current element. Nested 
subroutine entities are not copied, but 
nested linkage entities are copied. 

Errors : 

Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 5 - The ICA is full. 
Code 6 - The ECCB found by GSP03 is for 

an element that is not ended. 



GSP02 — Generation Support 

Charts : CH, CJ,, CK, CL, CM, CN 

Function : GSP02 provides one of the fol- 
lowing functions for a calling subroutine. 

i 

• Generation Function — to determine 
coordinates for a point (s) on a grid, 
and generate appropriate orders if 
necessary. 

• Store Function — to store generated 
orders in the ICA. 



• Increment Function 
incremental orders. 



to generate 



• Text Function — to generate Graphic 
Short Branch orders to character stroke 
subroutines. 

Entry : GSP02 

Exit : 

Normal - returns through the address 
stored in the entry word to the 
next sequential instruction in 
the calling subroutine. 

Error - returns to the mainline program 
through GSP01 error function. 

Input : For Generation Function: 
Argument 1 - address of the GCA 
Argument 2 - address of the x-start array 
Argument 3 - address of the y-start array 
Argument 4 - address of the x-end array 
Argument 5 - address of the y-end array 

For Text Function: 

Argument 2 - address of the text array 
Argument 5 - address of the Text code 
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For Store Function: the words to be stored 
are in the accumulator and the extension. 

Output : See "Function." 

Operation : GSP02 stores the contents of 
the accumulator and extension in a con- 
stants area and examines the one-word func- 
tion indicator in the calling sequence. 
The calling sequence and an explanation of 
the indicator word are as follows: 

LIBF GSP02 
DC /nl n2 n3 n4 

nl indicates the function as follows: 

0=Generation Function 
l=Text Function 
2=Store Function 
3= Increment Function 

n2 and n3 are unused. 

nU indicates the calling subroutine to the 
generation function as follows: 

0=PLINE or PPNT 

1=PSGMT 

2=IDP0S 

3=MVP0S 

4=LCP0S or TRACK 

n4 indicates the calling subroutine to the 
text function as follows: 

0=PTEXT 
1=MSGIN 

The generation function stores the 
address of the GCA (argument 1) and the ID 
of the calling subroutine in a constants 
area and sets a "first time" switch. The 
x-start phase is entered and the x-start 
indicator and increment indicator are ini- 
tialized. The address of the x-array 
(argument 2), XSIND, XSINC, XIPMD, and OPMD 
(in the GCA) are stored in the constants 
area. The x-value is determined from the 
x-array and scaled using the x-scaling 
factors in the GCA. The result is the 
current computed x- coordinate. 

GSP02 then enters the y- start phase to 
calculate and scale the y-value. This 
phase is similar to x-start except that the 
y-indicator fields are used with argument 
3. The result is the current computed 
y- coordinate. 

If the current computed and/or last 
computed x- or y- coordinates are outside 
the screen or grid limits and the Scissor 
subroutine GSP06 is loaded, GSP06 performs 
the scissoring function. Otherwise, the 
new generation indicators are updated and 
the new position indicators are masked with 
hexadecimal FFFF. 



The generation of orders is determined 
by a combination of the calling subroutine 
and the output mode. The type of order 
generated (move or draw) is determined by 
the necessity of positioning. 

If the calling subroutine is MVPOS, and 
NGXI indicates that the coordinate point is 
outside the screen or grid limits, a two- 
word GNOP order is generated and stored, 
and the last computed indicators (LCXI and 
LCYI) are updated. If NGXI indicates that 
the coordinate point is inside the screen 
and grid limits, and the output mode is 
absolute or optimized, a Move Beam Absolute 
order is generated and stored, and the last 
computed indicators (LCXI and LCYI) are 
updated. If NGXI indicates that the coor- 
dinate point is inside the screen and grid 
limits, and the output mode is incremental 
or for subroutine generation, Move Beam 
Incremental orders are generated and 
stored, and the last generated and last 
computed indicators (LGXI and LGYI; LCXI 
and LCYI) are updated. 

If the calling subroutine is not MVPOS,, 
and NGXI indicates that the coordinates are 
inside the screen or grid, the output mode 
and generation mode determine the genera- 
tion and type of order. If the output mode 
is incremental or the orders are for a 
subroutine, incremental orders are 
generated. The increment function splits 
the vector into blanked and/or unblanked 
increments depending upon the calling sub- 
routine and the necessity of positioning. 

If the output mode is absolute, MBAX and 
MBAY and/or draw beam absolute (DBAX and 
DBAY) orders are generated depending upon 
the calling subroutine and the necessity of 
positioning. 

If the output mode is optimized, MBA, 
MBI, DBA, and/or DBI orders are generated 
depending upon the calling subroutine, the 
necessity of positioning, and the "first 
time" switch. 

All generated orders are stored by GSP02 
store function. For all conditions where 
MVPOS is not the calling subroutine, and 
the new coordinates are inside the screen 
or grid boundary, LGXI, LGYI, LCXI, and 
LCYI are updated. If the new coordinates 
are not within the screen or grid, only 
LCXI and LCYI are updated by GSP02 (LGXI 
and LGYI are updated in GSP06). 

If PSGMT is the calling subroutine, the 
x-end and y-end phases must be entered to 
generate and store orders, if necessary, 
for both points. These phases are similar 
to the start phases except that x- and 
y-end indicators are used with arguments 4 
and 5. If the calling subroutine is not 
PSGMT, or if all four phases have been 
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completed, the external counter (ICNTR in 
GCOM) is decremented by one. When the 
external counter equals zero, return is 
made to the calling subroutine. If the 
external counter is non-zero, the x- start 
phase is re-entered. 



The store function determines if there 
is a minimum of one word available in the 
ICA ( LAGAP is greater than NAGAP) . If area 
is available, the accumulator and extension 
are loaded from the save area, and the 
contents of the accumulator are stored in 
the ICA as referenced by NAGAP. NAGAP is 
then incremented by one and if the order is 
2 words long, the contents of the extension 
are moved into the accumulator, and the 
above process is repeated. 



If there is not a one-word area avail- 
able, and the generation mode is normal or 
update, GSP04 (Push-down) or GSP05 (Push- 
up) will attempt to provide space for the 
storing of the order. If storing of the 
order is not possible, the number of words 
not stored (ICNTR) is stored in the exter- 
nal non-generation counter (ENGCA) in GCOM. 

The increment function determines the 
number of moves and the type of order 
required. The coordinates for each incre- 
mental vector are calculated and stored in 
the model order in the constants area. 
Each order is then stored in the ICA by the 
GSP02 store function. The number of moves 
is decremented by one and the process 
repeated until the number of moves equals 
zero. 

The text function stores the address of 
the text array (argument 2) and determines 
the character size. Using the text array 
as an index, the address of the GSB for the 
character is determined and stored in the 
constants area. The pointers to the ICA 
are updated and GSP02 store function 
inserts the order in the ICA. ICNTR is 
decremented by one and the process repeated 
until the counter equals zero. 



Errors : 

Code 8 - GSP06 is not loaded and scis- 
soring is required. 

Code 16 - Internal Error, the function 
indicator word does not specify 
one of the available GSP02 
functions; or 

Generation - The scissor 
subroutine is not loaded when 
the current computed x- and 
y- coordinates are outside the 
screen/grid; or 

Store - There is no avail- 
able area in the ICA and the 
delete counter is zero. 



GSP06 — Scissor 



Chart : CO 



Function ; To compute the coordinates of 
the points at which a vector intersects a 
grid or screen boundary and to define to 
the calling subroutine the positioning 
coordinates (if any) and the new generation 
coordinates (if any) so that the generation 
will be limited to the interior of the 
boundary. 

Entry : GSP06 

Exit : Returns through the address stored 
in the entry word to the next sequential 
instruction in the calling subroutine. 

Input : None. 

Output : The following updated fields in 
GCOM: 

NPXI - new positioning point X integer (if 
any) 

NPYI - new positioning point Y integer (if 
any) 

NGXI - new generation point X integer 

NGYI - new generation point Y integer 

Operation : Three types of vectors requir- 
ing scissoring are possible in relation to 
a grid or screen boundary. A vector may 
originate inside and proceed to a point 
outside the boundary; it may originate 
outside and proceed to a point inside the 
boundary; or it may originate outside and 
proceed through the interior to a point 
outside the boundary. 

The last computed x- and y- coordinates 
(PT1; see Figure 16) and the current com- 
puted x- and y-coordinates (PT2) in GCOM 
are used by GSP06 to compute up to four 
points at which the vector and its exten- 
sion intersect the boundary and its exten- 
sions. All coordinates for points outside 
the boundary and all coordinates for points 
outside the limits of the original vector 
are indicated as deleted. If the number of 
remaining boundary points is zero, the 
vector does not pass through the boundary, 
and the value hexadecimal FFFF is stored in 
NPXI, NPYI, NGXI, and NGYI. 

If the number of remaining boundary 
points is greater than two, duplicate sets 
of coordinates exist, and one set is indi- 
cated as deleted. 

For the first type of vector (inside to 
outside) , no positioning is necessary. 
Therefore, the value hexadecimal FFFF is 
stored in NPXI and NPYI. The coordinates 
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Figure 16. Scissoring to Screen or Grid Boundaries 
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for the boundary point (PTU 
stored in NGXI and NGYI. 



or PT6) are 



For the second type of vector (outside 
to inside), positioning may be required. 
The coordinates for the boundary point (PT4 
or PT6) are stored in NPXI and NPYI, and 
the current computed coordinates (PT2) are 
stored in NGXI and NGYI. 

For the last type of vector (outside 
through to outside) , a computation is made 
to determine the relative proximity of the 
two boundary points to the last computed 
coordinate. The coordinates of the nearest 
boundary point (PT4 or PT6) are stored in 
NPXI and NPYI, and the coordinates of the 
other boundary point (PT3 or PT5) are 
stored in NGXI and NGYI. 

Errors: None. 



Argument 3 - address of the option code 
defining the type of Argu- 
ment 2 and the address at 
which regeneration is to 
start as follows: 

O=correlation value, and the 
use of the switch trap in 
system display is desired- 
l=correlation value, and no 
switch trap is desired. 
2=arguments 1 and 2 are dis- 
regarded; start at the next 
order address. 

3=address of an order pro- 
gram, and the switch trap is 
desired. 

4=address of an order pro- 
gram, and the switch trap is 
not desired. 



2250 I/O SUBROUTINES 

The 2250 I/O subroutines are those which 
issue I/O commands to the 2250 and are 
called by the FORTRAN program to do I/O 
operations. The following is a list of I/O 
subroutines and their functions: 

• EXEC, which identifies an image entity 
and attaches it to the system display. 



TMDSP, which disconnects the 
entity from the system display. 



image 



• SPFKL, which identifies the programmed 
function keyboard lights which are to 
be lighted. 

• DSPYN, which issues I/O commands to the 
2 250 and handles interrupts from the 
2250. 



EXEC — : Execute Display 

Chart : DA 

Function : To start regeneration of an 
image entity on the 2250 display unit. 

Entry : EXEC 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 
value of the ICA. 

Argument 2 - address of the correlation 
value of an image entity; or 
(Assembler language only ) 
the address of the first 
order of an order program. 



Output: See "Operation." 

Operation : DSPYN resets the 2250, and EXEC 
examines the option code (argument 3) to 
determine the type of data passed in argu- 
ment 2. If a correlation value is speci- 
fied, the switch trap is set dependent upon 
the option specified, and the address of 
SD1 or STMR1 is stored in ASD in GCOM. If 
the ICA specified in argument 1 is the 
active ICA, GSP03 finds the specified image 
entity. If it is not the active ICA, EXEC 
finds the specified ICA and performs its 
own search to find the specified image 
entity. 

The address of the found image entity is 
compared with the IMECB field in GCOM. If 
they are the same, DSPYN starts regenera- 
tion of the system display and return is 
made to the next sequential instruction in 
the calling program. If they are not the 
same, DSPIN in GCOM is set to indicate 
execute status, the address of the image 
entity is stored in the graphic branch 
(SD5) in the system display, and the branch 
is made operational. DSPYN starts 
regeneration of the system display and 
control is returned to the calling program. 

If the Assembler- language programmer 
specifies an address of an order program in 
argument 2, the switch trap and ASD are set 
dependent upon the option code (argument 
3). The address of the order program is 
stored in the graphic branch (SD5AD) in the 
system display, and the branch is made 
operational. DSPIN is set to indicate 
execute status and DSPYN starts regenera- 
tion of the system display. 

If argument 3 specifies that the display 
is to restart at the next order address, 
the address is obtained from the field 
NOADR in GCOM and stored in a graphic 
branch (BRNCH) in an order program in EXEC. 
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The graphic order program has the following 
format: 



OPT2 


STMR 


GRAMD 


SGMP 


MBA 


DC 




DC 




SPM /A 



MODCH 



BRNCH 



GNOP 



GB *-* 



The x- and y- coordinates (ATNX and ATNY) 
for the move beam absolute order are found 
in GCOM and stored in location MBA. The 
order stream prior to the next order 
address is searched for a character or 
graphic mode order. A found character mode 
order is stored in MODCH, and a found 
graphic mode order is stored in GRAMD. The 
address of this order program is stored in 
the parameter list of the LIBF to DSPYN. 
This order program ensures that the display 
resulting from the order series starting at 
the next order address will have the attri- 
butes of the image entity within which it 
is nested. DSPYN starts regeneration of 
the order program and return is made to the 
calling program. 



Note: The Graphic Branch Indirect order at 
the end of an image entity is not modified. 



Errors 
Code 



1 - 



Argument 3 (option code) is not 
in the range 0-4. 
Code 2 - The correlation value for the 
ICA or the image entity is not 
in the range 1-32767. 
The ECCB is not found by GSP03, 
or by EXEC. 

The ECCB found is not for an 
image entity. 

- The image entity is not ended. 

- The GSP is in update mode. 



Code 

Code 

Code 
Code 



3 - 



4 - 



TMDSP -- Terminate Display 

Chart: DB 

Function : To stop the regeneration of an 
image entity. 

Entry : TMDSP 

Exit : Returns through GSP 01 to the next 
sequential instruction in the calling 
program. 

Input : None. 



Output : See "Operation." 

Operation : TMDSP sets the following graph- 
ic branch orders in the system display to 
perform no-operation: 

• Branch to the processing message sub- 
routine (SD2) 

• Branch to the scan subroutine (SD3) 

• Branch to the tracking symbol subrou- 
tine (SD4) 

• Branch to the image entity (SD5) 

DSPYN is then used to restart the system 
display. The DSPIN field in GCOM is set to 
indicate that the display has been ter- 
minated. The ICACB field in GCOM is set to 
zero. 

Errors : 

Code 9 - The display has already been 
terminated. 



SPFKL — Set Programmed Function Keyboard 
Lights 

Chart : DC 

Function : To light the specified pro- 
grammed function lights and (if requested) 
selectively enable those keys which are 
lighted. 

Entry : SPFKL 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 - 

Argument 2 - 

Argument 3 - 

Output : None. 



the 



selective 



address of 
enable code. 

address of the array indica- 
ting the lights to be lit. 
address of the count of the 
array elements. 



Operation : The arguments are tested to 
ensure their validity. The array indica- 
ting the lights to be turned on is accessed 
to set the bit pattern for the two word 
parameter passed to DSPYN. DSPYN is then 
called to set the programmed function key- 
board lights specified. The selective 
enable code is examined, and, if it is 
zero, the SATEN field specifies the enable 
status of the programmed function keyboard. 
If enabled, a hexadecimal FFFF is stored in 
PFKL1 and PFKL2 in GCOM. If disabled, 
zeros are stored in PFKL1 and PFKL2. If 
the enable code is one, and the programmed 
function keyboard is enabled, the parameter 
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designating the enabled lights is stored in 
PFKL1 and PFKL2. For all conditions DSPYN 
is called to start regeneration. 



Errors : 

Code 1 - The selective enable option is 
not or 1; or 

the count of the array elements 
is not in the range -1 to +32; 
or 

the value indicating the lights 
to be set is not in the range 
to 31; or 

the count of array elements is 
32, but the elements contain 
values other than or 1. 

Code 12 - The selective enable option is 
1, but the programmed function 
keyboard is not enabled. 



DSPYN - : - 2250 I/O Subroutine 

Charts : DD,DE,DF,DG, DH,DJ 

Function : To provide interrupt services 
(i.e., the 2250 ISS) for the 2250 Display 
Unit, ' Model 4; to provide I/O functions for 
the Assembler- language programmer and the 
GSP; or to store the addresses of several 
direct entry subroutines in GCOM. 

Entry : 

1. DSPYN for I/O operations. 

2. ISSDP for attention processing opera- 
tions. 



Exit: 



Returns to the next sequential 



instruction in the calling program through 
the address stored in the entry word. 

Input: 

1. Address of the I/O function code 

2. Address of the I/O area or address of 
direct entry subroutine 

3. Address of error routine 

Output : 

1. Specified I/O function 

2. Information stored in the attention 
data array 

Operation : DSPYN operation is divided into 
the following areas: 

1. Input/Output operations 

a. Start Regeneration 

b. Set Programmed Function Lights 

c. Read Status 

d. No-operation 
e: Reset Display 

f. Sense Device Status Word 



2. Store direct entry subroutine address 

3. 2250 attention-handling operations 

a. CANCEL key attention 

b. END key attention 

c. Alphameric keyboard attention 

d. Programmed function keyboard atten- 
tion 

e. Order- controlled attention 

f . Light pen attention 

4. Error handling 

INPUT/OUTPUT OPERATIONS : The first func- 
tion of DSPYN is to give input/output 
capabilities to the Assembler-language pro- 
grammer. Upon entry from the Assembler- 
language program, DSPYN examines the func- 
tion argument to determine the proper I/O 
function to be executed. Table 1 contains 
the I/O operations, function codes, and 
their associated entry points (the last two 
characters of the entry point are the 
hexadecimal value for the function code) . 

Start Regeneration : This section of DSPYN 
stores the address of the first order of 
the display program in the I/O control 
command used to start execution of the 
display program. A branch is made to DPN70 
(Sense Device) to obtain the Device Status 
Word (DSW) . If the DSW indicates that a 
display is not currently regenerating, the 
first order in the display program is 
examined to determine if it is an uncondi- 
tional Graphic Interrupt (GI) . A GI order 
causes a branch to the DSPYN error routine; 
otherwise a branch is made to DPN50 to 
issue the XlO-Start Regeneration. If the 
2250 is busy, a branch is made to DPNU8 to 
stop regeneration of the image. Once 
regeneration has ceased, the first order is 
inspected to see if it is a GI and normal 
execution continues. Two attempts are made 
to start regeneration of the new display. 
After the second attempt, if the DSW does 
not indicate that the 2250 is busy, control 
is passed to the DSPYN error routine. 

Table 1. I/O Operations, Function Code, 
and Entry Points 



Operation 

Start Regeneration 

Set Programmed 
Function Lights 

Read Status 

No-operation 

Reset Display 

Sense Device 



Entry Point 

and Function Code 

DPN50 

DPN58 

DPN60 
DPNU0 
DPN48 
DPN70 
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Set Programmed Function Lights ; This sec- 
tion of DSPYN puts the address of the bit 
pattern to be displayed on the PFKB in the 
two indicator words found at the address in 
the IOCC and issues the XlO-Set Programmed 
Function Lights. 

Read Status : This section of DSPYN moves 
six words containing the status of the 2250 
at the time of the attention from ASM60 to 
the area specified by the user. ASM60 is 
an area within DSPYN which, at the time of 
an attention, receives 6 words of data from 
GCOM indicating the status of the 2250. 
When the data has been transferred to the 
user's area, the first word of ASM60 is 
made negative to indicate that at the time 
of the next attention, ASM60 is free to 
receive new status information. 

No Operation : This section of DSPYN 
returns control to the calling program 
without performing any operations. 

Reset Display : This section of DSPYN 
issues the XIO command which stops 
regeneration of the display and turns off 
the PFKB lights. When control returns, a 
branch is made to access the DSW. The DSW 
is tested to determine if the 2250 is still 
busy. If the 2250 is busy, a second 
attempt is made to stop regeneration by 
issuing the command again. A second unsuc- 
cessful attempt causes a branch to the 
error routine specified by the user. If no 
error routine is specified, or if the 
user' s error routine returns control with 
the error code still in the accumulator, 
control passes to the standard error rou- 
tine. (See "Error Handling"). If the 2250 
is not busy, control returns to the calling 
program. 

Sense Device : Upon entering the Sense 
Device portion of DSPYN, the accumulator is 
set to zero. An XIO — Sense Device 
control command is issued to place the DSW 
in the accumulator. When control returns, 
a test is made to determine if the request 
has been successful. If the accumulator is 
not zero, a return is made to the calling 
program. If the accumulator is zero, a 
second attempt is made to get the DSW. 
Failure to complete the operation on the 
second attempt causes control to pass to a 
user-defined or the GSP error routine. 

STORE DIRECT ENTRY SUBROUTINE ADDRESS : 
When DSPYN is entered, the function code is 
examined. A code of /194n (n=l-7) causes a 
branch to DPN4X. The function . code is 
again examined resulting in the direct 
entry subroutine address being stored in 
the appropriate field in GCOM. An address 
of zero stored in GCOM indicates, at the 
time of an attention, that no direct entry 
routine is specified for that type of 
attention. If the function code is /1947, 



the entire direct entry subroutine branch 
table in GCOM is set to zero. 

2250 ATTENTION HANDLING SUBROUTINE : When 
an attention occurs, the 2250 attention 
processing subroutine is entered via ILSX3. 
Upon entry, an XIO-Read Status is executed 
and the result placed in GCOM, the GSP 
communications control block, The XIO-Read 
Status puts 6 words of data describing the 
2250 at the time of the interrupt into 
GCOM. (If GSP is not being used, the 6 
words of status information are placed in 
an alternate area (ASM60) within DSPYN.) A 
series of tests is made to insure that the 
Read Status produced valid information. 
Invalid status information causes a branch 
to the error routine. Valid 2250 status 
information is then placed in ASM60, an 
area within DSPYN from which it may be 
accessed by the user. Before the status 
information is moved to ASM60, a test is 
made to determine that the status informa- 
tion associated with the last processed 
attention has been transferred to the 
user's area. The new data is transferred 
only if the previous data has been trans- 
ferred. The specific types of attentions 
are then processed as follows: 

CANCEL key attention : An attention pro- 
duced by the CANCEL key causes an indicator 
(CNIND) within DSPYN to be set to 1. A 
special routine is then entered which saves 
the ILS return address. The ILS return 
address is modified to the address of a 
wait routine and control passes to the wait 
routine. An XIO is issued to start 
regeneration at an address which displays 
the CANCEL frame., The CANCEL frame display 
contains 3 options, one of which the opera- 
tor may choose to determine the course his 
program will take. The format of the 
CANCEL frame is shown in Figure 17. 

Each selection is composed of a set of 
orders which include one Graphic Interrupt 
Conditional order. When a detect is made 
on one of these selections and the light 
pen switch is closed, the order controlled 
attention causes control to pass to the 
appropriate processing routine with in 
DSPYN. As each attention occurs, the CNIND 
indicator is examined to determine whether 
the CANCEL frame is being displayed. If it 
is being displayed, control returns through 
the ILS to the wait routine. Order con- 
trolled attentions are examined to deter- 
mine which selection in the CANCEL frame 
the operator detected on. An attention on 
* TERMINATE causes the program to terminate 
(via a CALL EXIT) without a storage dump. 
An attention on * DUMP results in program 
termination with a dump of main storage. 
An attention on * RESUME restores the data 
stored from the original CANCEL attention, 
restarts the display, and returns control 
to be interrupted program. 
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:! TERMINATE 
" DUMP 
- RESUME 



rupted program 
display. 



without restarting the 



Figure 17. Cancel Frame 

END key attention : An attention produced 
by the END key causes GCOM to be tested to 
determine if a direct entry routine is 
specified for the END key. Control passes 
to the direct entry routine. When control 
returns, or if no direct entry routine is 
specified, GCOM is tested to determine if 
GSP is being used. When GSP is being used 
by the program, the first word of ATDAT, 
the area containing the attention informa- 
tion for the RQATN subroutine, is tested 
for zero. A zero in this area, indicating 
no previous attention information is being 
awaited, causes the SATEN field of GCOM to 
be tested to determine if the END key had 
been enabled. If the END key is enabled, 
the END key code is placed in ATDAT. The 
remainder of ATDAT is filled with zeros, 
the display is restarted, and control 
returns through ILS03 to the interrupted 
program. 

Other ANKB attentions ; If the ANKB atten- 
tion is neither CANCEL nor END, control 
passes to the direct entry routine. When 
control returns, or if a direct entry 
routine is not specified, GCOM is tested to 
determine whether GSP is being used. The 
ISSDE field of GCOM is inspected to deter- 
mine if a direct entry routine has pro- 
cessed the attention. If ISSDE indicates 
that processing has been completed by the 
direct entry routine and that the attention 
is not to be saved for inspection by the 
problem program, the display is restarted 
and control returns to the interrupted 
program. When GSP is not being used, 
control returns through ILSX3 to the inter- 



If processing has not been completed by 
the direct entry routine, the first word of 
ATDAT is tested for zero. A non-zero, 
indicating a previous attention is waiting 
to be processed, causes the display to be 
restarted and control to be returned 
through ILSX3 to the interrupted program. 
A zero in ATDAT causes an indicator in GCOM 
(SATEN) to be tested to determine whether 
any ANKB attentions have been enabled. If 
not enabled, the display is restarted and 
control returns through ILSX3 to the inter- 
rupted program. If ANKB attentions are 
enabled, the ANKB code is placed in the 
first word of ATDAT, and the EBCDIC code 
for the key causing the attention in the 
third word. The display is restarted and 
control returns through ILSX3 to the inter- 
rupted program. 



PFKB attentions: 



An attention from the 



PFKB causes control to pass to the direct 
entry routine specified for PFKB atten- 
tions. When control returns, or if no 
direct entry routine has been specified, a 
test is made to determine whether GSP is 
being used. In the event GSP is not being 
used, control returns through ILSX3 to the 
interrupted program without restarting the 
2250. If the program is using GSP, the 
ISSDE field of GCOM is inspected to deter- 
mine CI) whether a direct entry routine had 
been used and (2) if so, whether it had it 
completed processing the attention. If 
ISSDE indicates completion, the 2250 is 
restarted and control returns through ILS03 
to the interrupted program. An indication 
that processing has not been completed 
results in the first word of ATDAT being 
tested for zero* A non-zero in ATDAT, 
indicating that the information from the 
previous attention has not yet been 
accessed, causes the 2250 to be restarted 
and control to be returned through ILSX3 to 
the interrupted program. A zero in ATDAT 
results in a test of GCOM to determine 
whether PFKB attentions have been enabled. 
If PFKB attentions have not been enabled, 
the display is restarted and control 
returns through ILSX3 to the interrupted 
program. If PFKB attentions have been 
enabled, the indicator bit in PFKB1 and 
PFKB2 is tested to determine if the de- 
pressed key is enabled. If it is, the first 
word of ATDAT is set to indicate the PFKB 
code,, the PFKB number in the third word, 
and the overlay number in the fourth word. 
The remainder of ATDAT is filled with 
zeros, the display is restarted, and con- 
trol returns through ILSX3 to the inter- 
rupted program. If the depressed key is 
not enabled, ATDAT is set to zero, the 
system display is restarted, and control is 
returned through ILSX3 to the interrupted 
program. 
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Order, controlled attentions ; An order con- 
trolled attention is the result of execut- 
ing a Graphic Interrupt or a Graphic Inter- 
rupt Conditional order. This type atten- 
tion causes GCOM to be tested to determine 
if a direct entry routine has been speci- 
fied for the attention. Upon return from 
the direct entry routine, or if none was 
specified, GCOM is tested to determine 
whether the program is using GSP. If GSP 
is not being used, control returns through 
ILSX3 to the interrupted program without 
restarting the display. If GSP is being 
used, the ISSDE field in GCOM is accessed 
to determine whether the attention has 
already been processed by the direct entry 
routine; in which case the display is 
restarted and control returns through ILSX3 
to the interrupted program. If the atten- 
tion has not been processed, a branch is 
made to the correct processing routine. 
ATDAT is then tested to determine whether 
previous attention data is waiting to be 
accessed* Any information in ATDAT causes 
a branch back to the interrupted program 
and results in the display being restarted. 
If ATDAT does not already contain attention 
data, the SATEN field of GCOM is inspected 
to see if order controlled attentions have 
been enabled. If they have, the attention 
data related to the order controlled atten- 
tion is placed in ATDAT* The system dis- 
play is then restarted and control returns 
through ILSX3 to the interrupted program. 

Light pen attentions : An attention from a 
light pen detect results in the address of 
the order on which the attention occurred 
and the address of the next order to be 
calculated and stored in GCOM. A test is 
made to determine whether a direct entry 
routine has been specified for light pen 
attentions. When control returns from the 
direct entry routine, or if none was speci- 
fied, a test is made to determine whether 
the program is using GSP. Control returns 
to the calling program if GSP is not being 
used. If GSP is being used, the ISSDE 
field in GCOM is inspected to determine 
whether the attention has been processed by 
the direct entry routine. If ISSDE is not 
zero, the value of the word is used as a 
displacement into a branch table which 
directs control to pass to the appropriate 
attention-handling routine. If ISSDE is 
found to be zero, the first word of ATDAT 
is tested for zero. A non-zero in this 
area indicates data from a previous atten- 
tion is waiting to be processed. The 
system display is then restarted and con- 
trol returns through ILSX3 to the inter- 
rupted program. If ATDAT is zero, a test 
is made to determine whether light pen 
attentions have been enabled by the pro- 
gram. If light pen attentions have not 
been enabled, the system display is started 
and control returns through ILSX3 to the 
interrupted program. If light pen atten- 



Table 2. Attention Data Array 

r T . -, 

| ATDAT | Light Pen Code | 



+ 1 

+2 

+ 3 
+ 4 
+5 
+ 6 
+7 

+ 8 
+9 



+10 
through 
+19 



A decimal number indicating the 
position, within an index- 
controlled entity, of the item 
detected by the light pen. 

The decimal equivalent of the 
character detected, if applic- 
able, or minus one if the 
detect was not on a character. 

x-beam position. 

y-beam position. 

corrval of the ICA. 

corrval of the image entity. 

corrval of the controlled, 
level controlled, or index con- 
trolled entity. 

corrval of the innermost named 
element within the controlled 
entity or zero if not 
applicable. 

corrval of the lowest level 
subroutine entity or innermost 
element within the lowest level 
subroutine entity; or zero if 
not applicable. 

Reserved (filled with zeros). 



tions have been enabled, the ATDAT area is 
filled as shown in Table 2. 

Under certain circumstances, the GSP 
direct entry routine wi^.1 present an order 
controlled attention to DSPYN as a priority 
light pen attention. In this case, the 
ATDAT area is filled in without inspection 
of SATEN or ATDAT. If RQATN was processing 
at the time of the interrupt, the return 
address is modified to an entry point in 
RQATN which permits the new data to be 
transferred in its entirety. 

DSPYN/ ISS ERROR ROUTINE : Upon entering the 
error routine, the information in GCOM re- 
sulting from the XIO-Read Status is trans- 
ferred to an area within the error rou- 
tine. An error code, the current status of 
the DSW, and the address from which the 
error routine was entered are also placed 
in this area. The error code and the 
address of the area where the status infor- 
mation is being saved are placed in the 
accumulator and extension and in index 
registers 1 and 2. The address following 
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the NSI is stored at $PST3, and a branch is 
made to $PST3 + 1. This is the address of 
the post-operative error trap which con- 
tains a WAIT instruction. The program then 
branches to the WAIT. If the program is 
restarted by the operator pushing the PRO- 
GRAM START (or by any other interrupt) 
control returns to the error routine. The 
error routine retries the particular I/O 
command which failed. If the retry is 
successful, it then resets the 2250 and 
restarts the display at the last order 
address used by DSPYN to start regenera- 
tion. Control is then returned to the 
interrupted program. If the retry is 
unsuccessful, the entire error routine is 
re- executed. 



ATTENTION ENABLING AND INFORMATION 
RETRIEVAL 

Communication between the program and 
the 2 250 operator is provided by the pro- 
cessing of attentions to the 1130 CPU from 
the light pen and keyboards. The following 
subroutines are concerned with establishing 
attention conditions and the retrieval of 
attention data: 

• SATNS, which indicates to the GSP which 
sources of attentions are to be mean- 
ingful to the program. 

• RQATN, which transfers attention data 
from a constants area in DSPYN to a 
user defined array. 

The subroutine ROCOR returns the corre- 
lation value and the identity of an element 
within which a specified element is nested. 



SATNS — Set Attention Status 



Chart : EA 



Function : To enable attention sources for 
handling by the problem program and to 
remove any previously saved attention 
information. 



prevent processing of previously saved 
attention information. 

Errors : 

Code 1 - The attention source is invalid. 



RQATN — Request Attention Information 

Chart : EB 

Function : To transfer attention informa- 
tion to a program-defined array. 

Entry : RQATN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the user's atten- 
tion array. 

Output : Attention information stored in 
appropriate elements of the attention 
array; or, if no attention has occurred, 
the first word of the attention array set 
to one (see Table 3). 

Operation : The contents of RQNDA, the word 
in GCOM used to access the attention data 
array (ATDAT) in DSPYN, is placed in the 
accumulator. If the contents of the word 
are zero, the first word of the user's 
array is set to one, and control returns to 
the calling program. 

If RQNDA is non-zero, the address of an 
entry point in RQATN is stored in RQNDA to 
prevent priority light pen information from 
being lost if a priority light pen atten- 
tion should occur during execution of RQATN 
(see description of LOCPN/LOCND) . This 
action ensures that control returns to 
RQATN at a point which will enable RQATN to 
transfer all the data associated with the 
priority light pen attention. (See "Light 
Pen Attentions" in the description of 
DSPYN.) 



Entry : SATNS 

Exit : Returns through GSP01 to the next 
sequential instruction of the calling 
program. 



Input. : 

Argument 1 - address of the enable 

Output : None. 



code. 



Operation : SATNS stores the enable code 
(argument 1) in the SATEN field in GCOM. 
If the RQNDA field in GCOM is non-zero, 
SATNS also sets to zero the first word of 
the attention data area (ATDAT) of DSPYN to 



The first word of ATDAT is then tested 
for zero to determine if an attention has 
occurred since the last call to RQATN. A 
zero, indicating that no attention data is 
available, results in a one (1) being 
placed in the first word of the user's 
array. The address of ATDAT is then 
restored in GCOM, an indicator in DSPYN is 
set to permit DSPYN to accept new Read 
Status data, and control is returned to the 
calling program. If there is data in the 
first word of ATDAT, INPRE in GCOM is 
examined to determine if the user's array 
is in one-, two-, or three-word elements. 
The data is then transferred to the user's 
array. When all the data has been trans- 
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Table 



User's Attention Array for RQATN 



j Element 



Contents 



Array (1) 



Array (2) 
Array (3) 



Array (4) 

Array (5) 
Array (6) 
Array (7) 
Array (8) 
Array (9) 

Array(lO) 

Array (11) 
Array (12) 
Array (13) 

Array (20) 



One (1) if no attention occurred; or one of the following attention 
source codes : 

Code Source 

2 light pen 

3 END key 

4 alphameric key 

5 programmed function key 

6 order controlled (assembler language only) 

For light pen, a decimal number indicating the position within an 
index-controlled entity of the item detected by the light pen. 

For light pen, the decimal equivalent of the character detected, if 
applicable; or minus one if the detect was not on a character. 

For programmed function key, a decimal number in the range to 31 
corresponding to the depressed key. 

For alphameric key, the decimal equivalent of the character entered from 
the keyboard; or one of the following values: 

256 for the JUMP key 

512 for the BACKSPACE key 

1024 for the ADVANCE key 

For light pen, the x-coordinate beam position in 2250 raster units. 

For programmed function key, a decimal number in the range to 255 
corresponding to the overlay. 

For light pen, the y-coordinate beam position, in 2250 raster units. 

For light pen, the correlation value of the ICA. 

For light pen, the correlation value of the image entity. 

For light pen, the correlation value of the controlled entity. 

For light pen, the correlation value of the innermost named element 
within the controlled entity in which the light pen detect occurred; or 
zero if not applicable. 

For light pen, the correlation value of the lowest level subroutine 
entity or the innermost element within the lowest level subroutine 
entity in which the light pen detect occurred; or zero if not 
applicable. 

For order controlled, the address of the order causing the attention 
(Assembler- language only) . 

For order controlled, the address of the next sequential order 
(Assembler-language only) . 

Reserved. 



Reserved. 
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ferred, an indicator in DSPYN is set to 
permit DSPYN to accept new Read Status 
data, the first word in ATDAT is reset to 
zero, the address of ATDAT is restored in 
GCOM, and control returns to the calling 
program. 

Error s : None,. 



ROCOR — Return Outer Correlation Value 



Chart: EC 



Function: 



To obtain the correlation value 
of the element within which the 

corre- 



and type 

specified element is nested, or the 

lation value of a named linkage entity. 



Entry : ROCOR 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input. : 

Argument 1 - address of the correlation 
value of the specified 
nested element. 

Argument 2 - address of an integer vari- 
able where the correlation 
value for the next outer 
element is to be stored. 

Argument 3 - address of an integer vari- 
able where the element type 
is to be stored. 



value is not found by GSP03; or 
there is no outer element. 



LIGHT PEN SUBROUTINES 

The following subroutines allow communi- 
cation between the 2250 operator and the 
user program for creation and modification 
of graphic displays by use of the light 
pen: 

• LOCPN, which causes the immediate dis- 
play of the scanning pattern and allows 
light pen attentions. 

• LOCND, which causes the display of the 
scanning pattern when the light pen 
switch is closed, and allows light pen 
attentions . 

• LCPOS, which displays the tracking sym- 
bol at a specified position. 

• TRACK, which displays the tracking and 
allows tracking on the 2250 screen. 

• CTLTK, which specifies non-default 
tracking characteristics for light pen 
tracking. 

• CVTTD, which converts x- and y- 
coordinates to program units. 



Output: See "Function. " 

Operation : If the correlation value of the 
specified nested element is valid, GSP03 
finds the ECCB for the nested element. If 
the ECCB found is for an image entity, or 
for a subroutine to which linkage does not 
exist, the variables specified by arguments 
2 and 3 are set to zero. If the ECCB found 
is for a tracking entity, the correlation 
value and element type code are stored in 
the specified variables. Otherwise, GSP03 
finds the ECCB for the next outer element 
and stores the correlation value and ele- 
ment type code for the next outer element 
in the specified variables. The element 
type codes are as follows: 

l=uncontrolled entity 
2=controlled entity 
3=subroutine entity 
4=image entity 
5=index-controlled entity 
6=level-controlled entity 
7=linkage entity 
8=tra eking entity 

Errors : 

Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB for the correlation 



LOCPN/LOCND — Locate Position of the Light 
Pen and Locate Position of the Light Pen on 
No Detect 

Chart : FA 

Function : To display the scanning pattern 
on the screen of the 2250. 

Entry : 

1. LOCPN 

2 . LOCND 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : None 

Output : Displays the scanning pattern on 
the screen of the 2250. 

Operation : 

Entry through LOCPN activates a branch 
<SD3) in the system display so that the 
scanning pattern is displayed immediately. 
Entry through LOCND activates a conditional 
branch (SD6) in the system display so that 
the scanning pattern is displayed only when 
the light pen switch is closed. 
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Within the system display, the branch to 
the active image entity is located before 
the conditional branch to the scanning 
pattern. The conditional branch to the 
scanning pattern is ignored as long as the 
light pen switch remains open. If the 
light pen switch is closed and a detect is 
made on the image entity, a normal atten- 
tion occurs and the conditional branch to 
the scanning pattern is not executed. If 
the light pen switch is closed and no 
detect has occured, the conditional branch 
to the scanning pattern is executed causing 
the scanning pattern to be displayed. 

Error s : 

Code 9 - The subroutine is called while 
TRACK, LOCPN, LOCND, or LCPOS 
is executing. 

Code 10 - There is no image entity cur- 
rently being displayed. 



LCPOS — Locate a Position with the 
Tracking Symbol 

Chart: FB 

Function : To display the tracking symbol 
on the screen of the 2250 for use in 
conjunction with CTLTK. 

Entry : LCPOS 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Entry : TRACK 



Exit: 



Input : 

Argument 1 
Argument 2 
Argument 3 



address of the GCA 

address of the x-coordinate 

address of the y-coordinate 



Output : See "Operation." 

Operation : GSP02 is passed the coordinates 
given in the calling sequence for conver- 
sion to raster units. Control returns to 
LCPOS, and the new absolute coordinates are 
used to position the tracking symbol. The 
branch in the system display to the track- 
ing symbol is then activated to display the 
tracking symbol on the screen. 

Errors : 

Code 9 - The subroutine was called while 

TRACK, LOCPN, LOCND, or LCPOS 

was executing. 
Code 10 - There is no active image 

entity. 



TRACK -.- Track Position of Light Pen 

Chart : FC 

Function : To display the tracking symbol 
and create a tracking entity. 



Returns through GSP01 to the next 

sequential instruction in the calling 
program. 



Input : 
Argument 
Argument 
Argument 
Argument 



1 - address of the GCA. 

2 - address of the x-coordinate. 

3 - address of the y-coordinate. 

4 - address of the correlation 

value of the tracking 
entity. 



Output : See "Function." 

Operation : TRACK ensures that an image 
entity is being displayed, and calls GSP04 
(Push-down) to provide a minimum of 10 
words in the ICA. GSP03 then builds an 
ECCB for a tracking entity. The tracking 
output mode is set to the output graphic 
mode defined in the GCA, the line option is 
specified, and the distance used for curve 
tracking is set to 30 raster units. GSP02 
scales the x- and y- coordinates specified 
in arguments 2 and 3. Overhead orders to 
move the beam to specified coordinates and 
to link to the tracking entity are stored 
in the image entity. Overhead orders (GB, 
SRVT, and GBI) are stored in the tracking 
entity and DSPIN in GCOM is set to indicate 
that TRACK was entered. The address of the 
tracking symbol (GSP09) is stored in the 
Graphic Branch (SM) in system display in 
GCOM. The tracking direct entry subroutine 
(TRDE in GSP09) is initialized to allow 
movement of the tracking symbol in all 
axes, to assume move and vector modes, and 
to indicate that the last fixed position is 
specified by the x- and y-coordinates in 
arguments 2 and 3. 

Errors : 

Code 2 - The correlation value is not in 
the range 1-32767. 

Code 5 - There are not 10 words avail- 
able in the ICA. 

Code 9 - DSPIN indicates that TRACK, 
LOCPN, LOCND, or LCPOS has been 
called and the function is not 
yet completed. 

Code 10 - There is no image entity being 
displayed. 



CTLTK — Control Light Pen Tracking 

Charts : FD*FE 

Function : To set the tracking attributes 
and to permit the user to specify and to 
retrieve the position of the tracking sym- 
bol. CTLTK also permits a subroutine enti- 
ty to be connected to or disconnected from 



the tracking entity. 
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Entry 2 CTLTK 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 

Argument 2 
Argument 3 

Argument 4 

Argument 5 



Address of the track mode 

option. 

Address of the axis option. 

Address of the distance 

option. 

Address 

option,. 

Address 



of the point/line 



of 



the array con- 
taining the coordinates of 
the tracking symbol or con- 
taining the increments to be 
added to the current posi- 
tion of the tracking symbol. 
Argument 6 - Address of the correlation 
value of a subroutine 
entity. 

Output ; See "Operation." 

Operation ; CTLTK tests the arguments which 
are passed and takes the following action; 

1. A correlation value of zero results in 
no action being taken. A negative 
correlation value causes the subrou- 
tine entity to be disconnected from 
the tracking symbol. A positive value 
causes the subroutine entity specified 
by the correlation value to be 
attached to the tracking symbol. 

2. A distance argument of zero results in 
no action being taken. An argument 
within the limits of 1 through 63 is 
stored in GCOM to be used by GSP09 in 
setting points as the 2250 operator is 
tracking. 

3. A point/line option of zero results in 
no action being taken. An argument of 
1 or 2 is stored in GCOM to indicate 
that lines or points are being 
generated. 

4. A track mode argument of zero results 
in no change taking place. Arguments 
from 1 through 3 indicate positioning, 
sketching, or rubber- banding, respec- 
tively, and the argument is stored in 
GCOM. Arguments of 4 through 6 indi- 
cate programmed drawing, erasing, and 
the end function resulting in values 
of f 1, and 2 to be placed in the 
WORK1 field in CTLTK. 

5. An axis argument of zero results in no 
change from the previous axial charac- 
teristic. Arguments from 1 through 5 
are stored in GSP09 for use during 
movement of the tracking symbol. 



If programmed drawing has been indica- 
ted, the increments from the user-defined 
array are added to the current position of 
the tracking symbol. If programmed drawing 
was not indicated the current position of 
the tracking symbol is stored in the same 
user- defined array. 

In cases where rubber-band or sketch 
mode is in effect, or was in effect during 
the previous call to CTLTK, orders which 
were generated in the temporary area of 
GSP09 are stored in the tracking entity." 
Two exceptions to this rule are noted in 
the following paragraph. Depending upon 
the mode the program is operating in, 
either absolute or incremental orders are 
stored in the tracking entity. 

To allow the program to call CTLTK while 
in rubber- band or sketch mode and obtain 
the coordinates of the tracking symbol 
without fixing any points in the tracking 
entity, CTLTK inspects certain arguments 
before storing orders in the ICA. If the 
program is in rubber-band mode, CTLTK tests 
the track mode and point/line arguments 
and, if zero, does not store orders in the 
ICA. If the program is sketching, in 
addition to testing the track mode and 
point/line arguments, CTLTK also tests the 
axis and distance arguments. Values of 
zero in all arguments cause no orders to be 
stored in the ICA. If positioning is 
specified in two successive calls to CTLTK, 
no orders are stored in the tracking 
entity. 

All calls to CTLTK cause a test to be 
made to determine whether the end function 
has been requested. If the end function 
has not been requested, the appropriate 
line/ point mode order is set in the track- 
ing entity and the skeleton move or draw 
orders are reset in the temporary area of 
GSP09 . A test is then made to determine if 
the erase function has been specified and 
if so, a graphic branch within GSP09 is set 
to inhibit the display of the tracking 
symbol . 

If the end function has been requested, 
the linkage to the tracking symbol in the 
system display is removed, the branch in 
the image entity to the temporary order 
area in GSP09 is nullified, the tracking 
entity ECCB is indicated as ended, and the 
element end address is set in the ECCB. 

Errors : 

Code 1 - An invalid argument (argument 1 

- 5) has been passed. 
Code 3 - The correlation value is 

undefined. 
Code 4 - The correlation value is not 

for a subroutine entity. 
Code 5 - The ICA is full. 
Code 9 - The TRACK or LOCPN subroutine 
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had not been called before the 
call to CTLTK. 
Code 11 - GSPIN has not yet been called. 



CVTTD — Convert Tracking Data 

Chart: FF 

Function; To convert the x- and y- 
coordinates in a tracking entity, origin 
entity, attention data array, or array used 
for RDPOS or CTLTK to program coordinates. 

Entr y : CVTTD 

Exit ; Returns to the calling program 
through the address stored in the entry 
word. 



Inpu t ; 

Argument 1 - 
Argument 2 - 

Argument 3 - 

Argument 4 - 

Argument 5 - 

Argument 6 - 

Argument 7 - 
Argument 8 - 



address of the GCA. 
address of the correlation 
value or the input array, 
address of the variable or 
array for the x- coordinate 
output data. 

address of the variable or 
array for the y- coordinate 
output data- 
address of the number of 
elements in each output 
array . 

address of the variable in 
which the number of con- 
verted coordinates is 
stored. 

address of the variable in 
which the address of the 
first coordinate not con- 
verted is stored if the data 
type changes. 

address of the variable in- 
dicating the type of argu- 
ment given in argument 2, 
and the type of data 
returned in arguments 3 and 
4. 



Output ; The x- and y-coordinate data ras- 
ter units is converted to program units and 
stored in the arrays specified by arguments 
3 and 4. The number of converted coor- 
dinates is stored in argument 6. If appli- 
cable, the address of the first coordinate 
not converted is stored in argument 7. A 
return code is stored in argument 8 indica- 
ting the type of data stored. 

Operation ; If the data which is being 
converted is associated with a tracking or 
origin entity, GSP03 is entered to search 
for the associated ECCB. The x- and y- 
coordinates are then converted to program 
units using the scaling factors in the GCA. 
The results are stored in the arrays speci- 
fied by the user. If the end of the 
element has not been reached, the next 



order is tested to determine whether the 
line/point mode or move/draw mode has 
changed. If no change is indicated, the x- 
and y-coordinates are converted as 
described above. A change in mode results 
in the number of converted coordinates, the 
address of the first coordinate not con- 
verted, and a code indicating the type of 
data returned, being stored in the 
addresses specified in arguments 6, 7, and 
8 respectively. Control then returns to 
the calling program. 

When the attention data array or an x 
and y array is specified, the x- and 
y-coordinates are converted to program 
units and stored in the user- specified 
array. A 1 is stored in the address 
specified by argument 6 , a code indicating 
the type of data returned is stored in 
argument 8, and control returns to the 
calling program. 

Errors ; 

Code 1 - An argument, not the correlation 

value, is invalid. 
Code 2 - The correlation value is 

invalid. 
Code 3 - The specified correlation value 

is not currently defined. 
Code 4 - The specified correlation value 

is not for an origin or tracking 

entity. 
Code 6 - The ICA is full. 



ALPHAMERIC AND TEXT GENERATION SUBROUTINES 

The following subroutines provide for 
the creation of message entities from the 
alphameric keyboard or program data, for 
the conversion of graphic orders in a 
message entity to EBCDIC code, and for 
conversion of real or integer values to 
EBCDIC and vice versa; 

• GCHAR, which is a series of Graphic 
Short Branch orders and character 
stroke subroutines which will cause the 
display of upper and lower case let- 
ters, digits, and certain special 
characters. 

• GUPER, which provides the same function 
as GCHAR except that lower case letters 
are not available. 

• DFMSG, which defines a message entity. 

• MSGIN, which converts alphameric input 
data to Graphic Short Branch orders and 
stores these orders in the message 
entity. 

• TLMSG, which converts Graphic Short 
Branch orders in a message entity into 
EBCDIC code, and stores them in a user 
defined array. 
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• ICURS, which establishes message 
collection mode for entering data from 
the alphameric keyboard. 

• RCURS, which ends message collection 
mode. 

• BCNV, which converts real or integer 
values to EBCDIC, or vice versa. 



GCHAR — Character Strokes 

Chart : None . 

Functjqn : To create strokes required by 
GSP subroutines PTEXT, DFMSG, GSP07, and 
GSP02 (text function). 

Entry : GCHAR 

Exit : Not applicable. 

Input : Not applicable. 

Output : Not applicable. 

Operation ; This subroutine is selected for 
loading by leaving column 13 on the *G2250 
supervisor record card blank. The address 
of GCHAR is indicated to other GSP subrou- 
tines by GSPIN. 

The entry point GCHAR is the base for 
relatively addressing a 258 word table of 
Graphic Short Branch (GSB) orders to char- 
acter stroke subroutines. This table 
corresponds to 256 EBCDIC values with 
decimal values 0-255 and hexadecimal values 
00-FF. Providing character strokes for 9 2 
standard characters (upper- and lower-case 
letters, digits 0-9, and special charac- 
ters) , GCHAR is indexed by the EBCDIC value 
to reference the appropriate GSB (i.e., 
GCHAR+226 references upper case S) . GCHAR+ 
256 is a GSB to a special null for the 
cursor. GCHAR+257 is a GSB to the cursor. 



DC 



.A 



For the remaining 16 
no standard character 
table references a "not 
ter appearing as a supe 
subscript A in the same g 
updated to include non-s 
by replacing the GSB of a 
available" character with 
character stroke subrouti 



4 values for which 
is assigned, the 
available" charac- 
rscript N and a 
rid. GCHAR may be 
tandard characters 
value to the "not 
a GSB to the new 
ne. 



Since the GSP provides for translating 
light pen attentions on characters and 
translating GSB orders in message entities 
to the correct EBCDIC values, the format of 
all character stroke subroutines in GCHAR 
is fixed. The following example of upper- 
case A illustrates this format: 



cs 


4,0 


cs 


1,0 


DBS 


3,7 


DBS 


6,0 



EBCDIC value 
Superscript Entry 
Subscript Entry 
Normal (aligned) Entry 



MBS 



DBS 



R 



5,2 
1,2 



The GSB in the table at displacement 193 is 
a GSB to label A. GSP implementation will 
subtract 1 from the address in the GSB 
order to produce a subscripted character 
and 2 to produce a superscripted character. 

For the translation function, the GSP 
will test the order at the modified address 
to see if it is a control stroke order 
(CS) . If so, it will further test to see 
if it is a subscript control stroke order. 
Thus, depending upon the stroke order spec- 
ified by the GSB address, the GSP will 
subtract 1, 2, or 3 to obtain the EBCDIC 
value for the stroke subroutine. 

Note : Strokes which would not normally use 
subscripting or superscripting (space, 
null, etc.) will have this same format for 
consistency in implementation. Therefore, 
if any new characters are added to GCHAR, 
they must also follow this format. 



GUPER — Upper Case Character Strokes 

Chart : None . 

Function : This subroutine provides the 
branching table capability of GCHAR except 
that when the table is indexed to a lower 
case letter, the GSB addresses the upper 
case of that letter. Lower case letters 
are not available. 

GUPER is selected for loading by punching a 
"U" in column 13 of the *G2250 card. 

Entry : GUPER 



Note: 



For further information, see the 



similar subroutine, GCHAR. 

DFMSG — Define Message Entity 
Chart : GA 



Function: 



To create or reinitialize a 



message entity. 

Entry : DFMSG 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 
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I nput : 

Argument 1 

Arg ument 2 

Argument 3 



address of the correlation 

value. 

address of 

characters, 

address of 



the size, in 
of the element, 
the character 



option (basic or 



size 
large) . 
Argument 4 - address of the initializa- 
tion character option (blank 
or null ) . 

O utput : A new or modified message entity 
and corresponding ECCB. 

Operation : DFMSG tests the validity of the 
four arguments, and GSP03 searches for the 
ECCB specified by argument 1 (correlation 
value). If GSP03 returns a zero, indica- 
ting that the ECCB is not found, arguments 
2,, 3, and 4 are ret est ed to ensure non-zero 
values, and GSP03 builds an ECCB for a 
message entity. GSP02 stores in the mes- 
sage entity a Set Character Mode order 
(SCMB or SCML) and a Graphic Short Branch 
(GSB) to the special cursor null. The text 
function of GSP02 initializes the message 
entity with GSBs to the null or blank 
character as specified by argument 4. 
GSP02 stores a GNOP at the end of the 
element to terminate character mode, and 
ELEND in the message entity 1 s ECCB is set 
to reflect the end address of the element. 
The exit phase is then entered. 

The initialization character option 
value determines whether the message entity 
is to remain unchanged (value=0) , if it is 
to be filled with GSBs to the null charac- 
ter (value=l), or if it is to be filled 
with GSBs to the blank character (value=2) . 
If a message entity is found by GSP03, a 
new Set Character Mode order is stored, if 
necessary, and the length of the element is 
compared with the length specified by argu- 
ment 2. 

If the initialization value is not zero, 
an update phase is entered regardless of 
the relative length of the element to that 
specified. In the update phase, DSPYN 
removes the address of GSP07 from GCOM,. 
through which GSP07 is entered, thus pre- 
venting any possible movement of the cur- 
sor. The ECCB is set to indicate an 
uncontrolled entity, and UELMT resets ; the 
pointers in the element's ECCB and in GCOM 
and adjusts the length of the element' if 
necessary. DFMSG then proceeds as though 
an ECCB for a new message entity had been 
built . 

If the initialization value is zero and 
the element length is the same as that 
specified, no further processing occurs. 
If the initialization value is zero and the 
element is longer than that specified, a 
test is made to determine if the cursor or 



cursor null is within the limits of the new 
message entity. If it is not, it is placed 
in the last position in the new element and 
CURAD in GCOM is updated. The update phase 
is entered and, upon return, a GNOP is 
stored in the end of the element to termin- 
ate character mode. The exit phase is then 
entered. 

If the initialization value is zero and 
the present length of the element is short- 
er than that spcjcif ied, ELSTA in the ECCB 
is set to reflect the address of the GNOP 
order at the end of the element and ICNTR 
is set to indicate the additional space 
needed. The update phase is entered and, 
upon return, the extension is filled with 
GSBs to the blank character by the text 
function of GSP02. A GNOP is stored at the 
end of the element, ELEND is set, and the 
exit phase is entered. 

The exit phase checks to determine if 
the update phase has been entered. If not, 
no further processing occurs. If the up- 
date function has been entered, EELMT ends 
the update phase, and DSPYN is used to 
restore the address of GSP07 to ANDE in 
GCOM. 

Errors : 

Code 1 - The size of the element is not 
in the range 0-32767; or 
the character size option is not 
0, 1, or 2; or 

the initialization character 
option is not 0, 1, or 2. 

Code 2 - The correlation value is not in 
the range 1-32767. 

Code 3 - Argument 2, 3, or 4 is and 
GSP03 does not find an ECCB for 
the correlation value specified. 

Code 4 - The ECCB found by GSP03 is not 
for a message entity. 

Code 8 - GCHAR or GUPER is not loaded. 



MSGIN — Message Entity Initialization 
Chart : GB 

Function: To store graphic short branch 
orders to character stroke subroutines in a 
message entity. 

Entry : MSGIN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 

Argument 2 
Argument 3 



address of the correlation 

value. 

address of the data array. 

address of the position 

within the element where the 

first GSB order is to be 

stored. 
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Argument 4 - address of the number of 
characters in the data 
array. 

Argument 5 - address of the text code. 

Output ; See "Operation." 



positions until the position identified by 
argument 3 is reached. The GSB for the 
cursor is inserted here, and the cursor 
address in GCOM is updated to reflect the 
new position. The active cursor indicator 
in GCOM is set on, and DSPYN allows the use 
of GSP07. 



Operation ; MSGIN ensures the validity of 
the arguments, and GSP03 finds the ECCB for 
the specified message entity. NAGAP and 
LAGAP in GCOM are set to reflect the limits 
in the message entity within which the GSB 
orders will be stored. GSP02 generates and 
stores in the message entity the GSB orders 
for the data in the array. 



Errors ; 
Code 1 



not in 



Argument 2, 3, or 1 is 
the range 1-32767; or 
argument 5 is not in the range 
1-4. 
Code 2 - The correlation value is not in 
the range 1-32767. 
The ECCB is not found by GSP03. 
The ECCB found is not for a 



Code 
Code 



Errors ; 

Code 1 - The address of the position 
where the cursor is to be 
placed is not within the limits 
of the message entity. 

Code 2 - The correlation value is not in 
the range 1-32767. 

Code 3 - The ECCB for the specified ele- 
ment is not found by GSP03. 

Code 4 - The ECCB found by GSP03 is not 
for a message entity. 

Code 9 - The message entity is not 
within the image entity being 
displayed. 

Code 10 - The message entity is not 
within a previously defined 
element. 



message entity. 



ICURS — Insert Cursor 
Chart ; GC 



RCURS — Remove Cursor 



Chart; GD 



Function; 



To 



place a cursor in a message 
entity and display the cursor on the 2250 
screen. 

Entry ; ICURS 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input ; 

Argument 1 - address of the correlation 
value. 

Argument 2 - address of the position in 
the message entity where the 
cursor is to be placed. 

Output : None. 

Operation ; ICURS calls DSPYN to remove the 
direct entry address of GSP07 from GCOM. 
The correlation value is checked for valid- 
ity, and GSP03 finds the specified ECCB. 
If the ECCB is for an image entity being 
displayed, or for a subroutine entity, the 
character position is checked to ensure 
that it is greater than zero. 

If there is an active cursor, it is 
removed and the graphic short branch (GSB) 
for the null cursor (used to indicate the 
last cursor position) is inserted in the 
cursor address in GCOM. A GSB for the null 
cursor is interchanged with GSBs for the 
character stroke subroutines in succeeding 



Function ; To remove the cursor from a 
message entity. 

Ent ry; RCURS 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input ; None. 

Output ; None. 

Operation ; RCURS calls DSPYN to remove the 
address of GSP07 from GCOM. If there is no 
cursor displayed on the screen, no further 
processing occurs. Otherwise, the Graphic 
Short Branch (GSB) of the null cursor (used 
to indicate the last cursor position) is 
stored in CURAD in GCOM, and CMECB in GCOM 
is loaded with zeros. 

Errors; None. 



TL MSG — Translate Message Entity 

Charts ; GE,GF 

Function ; To convert alphameric data asso- 
ciated with a message entity from graphic 
representation to EBCDIC format and place 
the translated data in a specified area. 



Entry ; TLMSG 
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Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Errors ; 
Code 1 - 



is not in the 



Input ; 
Argument 



1 - 



of the correlation 



address 
value. 

Argument 2 - address of the variable or 
array where the translated 
data will be stored. 

the element 



Argument 
Argument 



3 - address of 

count. 

4 - address of a code (text 

code) designating the format 
of the alphameric data. 



Output : See "Function." 

Operation : TLMSG ensures the validity of 
the arguments, and the search function of 
GSP03 finds the specified message entity. 
The data in the message entity is then 
translated character by character into 
EBCDIC values and stored in the specified 
array. A counter, which indicates the 
number of words per element, is set to 1, 
2, or 3, depending on the text code and 
precision (see Table 4). As each word is 
stored, the word counter is decremented by 
one. When the counter reaches zero, one 
element has been filled and the element 
count (argument 3) is decremented by one. 
The array address is decremented by an 
index factor (determined by text code and 
precision) and the word counter is reset. 

If the element count is zero and the 
message entity has not been fully trans- 
lated, an error condition exists. If the 
message entity has been fully translated 
and the element count is not zero, the 
remaining area in the storage array is 
filled with EBCDIC blanks. 



The text code 

range 1-4. 
Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 4 - The ECCB found by GSP03 is not 

for a. message entity. 
Code 12 - The element count has been 

decremented to zero but the 

message entity has not been 

fully translated. 

Note : All characters shown are EBCDIC 
values except those underlined, which are 
hexadecimal values. One element, that in 
high order position within the message 
entity, is shown for each valid combina- 
tion. Each word is separated by brackets. 
"xx" denotes information that is not 
meaningful. 



BCNV — Basic Conversion 



Chart : GG 

Function : To provide the following types 
of conversion: 

1. EBCDIC to real precision. 

2. Real precision to EBCDIC. 

3. EBCDIC to integer precision. 

4. Integer precision to EBCDIC. 

Entry : BCNV 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the input array 

(data to be converted) . 
Argument 2 - address of the output array 



Table 4. Alphameric Data Format 



r T 

Precision 



Text Code 



Real 

Standard 



[AB] [CD] 



Real 

Extended 

Integer 
One- Word 



+ 

[AB] [CD] [EF] 



-+ 



[AB] 



[00A] 



[OA] 



Integer 
Standard 

Integer 
Extended 



[AB] [xx] 



[00A] [xx] 



[OA] [xx] 



[AB] [xx] [xx] 



[00A] [xx] [xx] 



[OA] [xx] [xx] 
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(where converted data is to 
be stored) . 

Argument 3 - address of the code specify- 
ing the type of conversion. 

Argument H - address of the text code 
specifying the data format. 



Output : Converted data stored in the out- 
put array. 

Operation ; BCNV ensures the validity of 
the arguments and examines the code indica- 
ting the type of conversion to be per- 
formed. If the conversion is from EBCDIC 
to real precision,, the input data is first 
examined for validity and then converted to 
a format acceptable to the 1130 subroutine 
FDTB (one EBCDIC character per word) .. FDTB 
then converts the data to real precision 
which is stored in the output array speci- 
fied by argument 2. 

If the conversion is from real precision 
to EBCDIC, the 1130 subroutine FBTD con- 
verts the data which is then stored in the 
output array. 

If the conversion is from EBCDIC to 
integer, the contents of the input array 
are examined for validity and then con- 
verted to integer values which are stored 
in the output array. 

If the conversion is from integer to 
EBCDIC, the integer value is converted to 
the decimal equivalent and stored in the 
output array. 



GSP11 , 

detects 

entity. 



which processes light pen 
upon an index- controlled 



Errors ; 



code or text 



Code 1 - The conversion 

code is invalid. 
Code 12 - The contents of the input array 

are invalid. 



ATTENTION PROCESSING 

The following subroutines accomplish the 
processing necessary for communication 
between the program and the 2250 operator, 
by interpreting interrupts from the 2250: 

• DSPYN, which is described under "I/O 
Subroutines." 

• GSP07, which processes attentions from 
the alphameric keyboard if in message 
collection mode, and prevents the sav- 
ing of attention data. 

• GSP08, which processes light pen and 
order controlled interrupts. 

• GSP09, which processes order controlled 
interrupts originating in the scanning 
pattern and the tracking symbol. 



GSP12, which processes light pen 
detects and attentions upon a level- 
controlled entity. 



GSP07 — Cursor Direct Entry 

Chart : HA 

Function : To accept a character from DSPYN 
and insert a Graphic Short Branch (GSB) to 
its stroke subroutine into the message 
entity at the location specified by the 
cursor; or, to control the positioning of 
the cursor within the message entities. 

Entry : GSP07 from DSPYN 

Exit : Returns through the entry word to 
the next sequential instruction in the 2250 
ISS. 

Input : The results of an alphameric key- 
board attention. 

Output : A GSB to a character stroke sub- 
routine placed in the message entity. 

Operation : ATNAN in GCOM is tested to 
determine if the attention is caused by the 
JUMP, ADVANCE, or BACKSPACE key. If not, 
the GSB for the character whose EBCDIC 
value is also stored in ATNAN is placed in 
the message entity at the location speci- 
fied by the cursor address (CURAD) in GCOM. 
If the GSB for the cursor is not at the end 
of the element, it is stored in the next 
position in the element, and CURAD is 
updated. If the GSB for the cursor is at 
the end of the element, no further process- 
ing occurs. 

If the attention is caused by the 
ADVANCE key, the position of the GSB for 
the cursor within the element is deter- 
mined. If it is at the end of the element, 
no further processing occurs. If it is not 
at the end of the element, the GSB for the 
cursor is interchanged with the following 
GSB, and CURAD is updated. 

If the attention is caused by the BACK- 
SPACE key, the position of the GSB for the 
cursor within the element is determined. 
If it is in the first position after the 
overhead order, no further processing 
occurs. If it is not in the first position 
after the overhead order, the GSB for the 
cursor is interchanged with the preceding 
GSB, and CURAD is updated. 

If the JUMP key is the cause of the 
attention, the next message entity within 
the image entity is found, the GSB for the 
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cursor is stored in the first position 
after the overhead order, and the GSB to 
the cursor in the old message entity is 
replaced with a GSB to the special null 
cursor. If there is no other message 
entity within the image entity, GSP07 
treats the old message entity as the new, 
and places the GSB for the cursor in the 
first position after the overhead order. 
GSP07 stores a code in ISSDE in GCOM to 
indicate that GSP07 has completed all pro- 
cessing of the alphameric keyboard 
attention. 

Errors: None. 



GSP08 — Light Pen and Order Controlled 
Direct Entry Subroutine 

Chart : HB 

Function : To process light pen and to 
route order controlled interrupts to GSP09 
or GSP12. 

Entry : GSP08 

Exit: Returns to DSPYN through the address 
stored in the entry word. 

Input : None. 

Output : See "Operation." 

Operation : When GSP08 is entered, it 
determines whether the interrupt was caused 
by a 2250 order or the light pen. 

If an order interrupt has occurred, 
GSP08 does the following: 

1. If the order interrupt occurred in the 
tracking symbol subroutine, control 
passes to the Track Direct Entry sub- 
routine (TRKDE in GSP09) . This sub- 
routine updates the position of the 
tracking symbol, generates orders in 
the ICA if necessary,, and returns 
control to GSP08. GSP08 passes con- 
trol back to DSPYN where the system 
display is restarted. 

2. If the order interrupt occurred in the 
scanning pattern, control passes to 
the Scan Direct Entry subroutine 
(SCNDE in SGP09). This subroutine 
sets the Graphic Branch in the system 
display to the scanning pattern sub- 
routine to perform no- operation. Con- 
trol returns to GSP08, which in turn 
passes control back to DSPYN. DSPYN 
then restarts the system display. 

3. If the order interrupt occurred within 
a level- controlled entity, control 
passes to GSP12 to determine the ele- 
ment in which it occurred. GSP12 



resets OADDR and NOADR in GCOM. Con 
trol returns to DSPYN where the atten- 
tion data array is filled. 

4. If the order interrupt did not occur 
in the tracking symbol or the scanning 
pattern subroutine, or within a level 
controlled entity (see description of 
GSP12) , an indicator in GCOM is set to 
indicate that the display is to be 
terminated. Control returns to DSPYN. 
The display is not restarted. Atten 
tion data is placed in an array which 
may be accessed by the user through a 
call to RQATN. 

If a light pen interrupt has occurred a 
test is made to determine if the light pen 
switch has been closed. If the switch has 
not been closed, the interrupt is ignored 
and control returns to DSPYN to restart the 
display at the next sequential order. If 
the light pen switch is closed, a test is 
made to determine whether or not an image 
entity is being displayed. If an image 
entity is being displayed, and the atten- 
tion was from the tracking entity, the beam 
bit is turned off, or on a character a GSB 
to blank is used. If not on a tracking 
entity, a correlation value search is made 
to provide the attention information for 
DSPYN. If the detect occurred on an index- 
controlled entity, control passes to GSP11 
to determine the relative position of the 
detected element within the entity. Atten- 
tion information is provided for DSPYN and 
control is passed to DSPYN. If an image 
entity was not being displayed, it indi- 
cates that the light pen detect occurred in 
a user generated order string. Correlation 
data in GCOM is set to zero. The system 
display is reset and an indicator in GCOM 
is set to indicate that the display is 
terminated. Control returns to DSPYN where 
attention data is placed in an array that 
is available to the user through a call to 
RQATN . 



Errors: None. 



GSP09 — Scanning Pattern and Tracking 
Symbol Direct Entry Subroutine 



Chart 



HC 



Function : 

1. To replace the scanning pattern with 
the tracking symbol when a detect 
occurs on the scanning pattern. 

2. To process interrupts on the tracking 
symbol and update the position of the 
tracking symbol after calls to LOCPN, 
LOCND, LCPOS and TRACK. 
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Entry : ; 

1. SCNDE 

2. TRKDE 

Exit : Returns to DSPYN through GSP08. 

Input : None . 

Output : See "Operation." 

Operation : 

1. An interrupt on the scanning pattern 
causes control to pass to GSP09 
through the SCNDE entry point. The 
Graphic Branch to the scanning pattern 
subroutine is then set to perform 
no-operation, and the Graphic Branch 
to the tracking symbol is made 
operational. 

2. Following the first interrupt on the 
tracking symbol,, GSP09 is entered at 
the TRKDE entry point. Each section 
of the tracking symbol is assigned a 
specific value,, and TRKDE uses this 
value to analyze the distance the 
light pen is from the center of the 
tracking symbol. An algorithm is then 
used to determine the number of raster 
units in both the x- and y-direction 
the tracking symbol must be moved. 
The results of this calculation are 
examined to determine if the tracking 
symbol is to be moved at all. (A 
result of x = 0, y = would indicate 
no move in either direction.) If the 
tracking symbol is to be moved, the 
STMR order in the system display is 
set to perform no-operation. This 
permits faster updating of the track- 
ing symbol. The Move Beam Absolute 
order which positions the tracking 
symbol is then updated to reflect the 
new position. If it has been deter- 
mined that the tracking symbol does 
not have to be moved, the STMR order 
in the system display is immediately 
restored. If LCPOS has been called, 
control passes back to DSPYN. If not, 
the distance the light pen is from the 
center of the tracking symbol is com- 
puted in the normal manner. Before 
the tracking symbol is moved, however, 
a test is made to insure that the 
tracking symbol is free to move in any 
direction. If movement in any speci- 
fic direction has been restricted by 
CTLTK, the new calculations for 
adjusting the tracking symbol are made 
accordingly. A test is made to deter- 
mine whether the tracking symbol is to 
be moved at all. If it is, the STMR 
order is set to perform no- operation, 
and the Move Beam Absolute order is 
updated to reposition the tracking 
symbol. A move of three or more 
raster units from the last position 
causes the 2250 ISS to restart the 



display at the tracking symbol. Tern 
porarily bypassing the orders which 
display the image entity permits fast- 
er tracking and minimizes the chance 
of the light pen's losing the tracking 
symbol. The ICA is tested to insure 
that at least four unused words are in 
the ICA for newly generated orders. 
Less than four words in the ICA causes 
the letter F to appear on top of the 
tracking symbol to notify the 2250 
operator that no more orders will be 
generated. Control then returns to 
DSPYN. If the ICA is not full and 
sketching has been specified, each 
time the "dist" argument is reached 
the orders are stored in the ICA. If 
the symbol has not moved the user- 
specified distance, the orders are 
stored in a temporary area. In any 
other mode but sketching, the orders 
are stored in the temporary area. 
Control then returns to DSPYN. 

Errors : None. 

GSP11 — Scan Index-Controlled Entity 

Chart : HD 

Function: To determine the number of non- 
overhead graphic orders in an index- 
controlled entity from the first order 
through the order upon which a detect has 
occurred. 

Entry : GSP11 from GSP08 

Exit : Returns through the address stored 
in the entry word to the next sequential 
instruction in the calling program. 

Input : None. 

Output : See "Operation." 

Operation : GSP11 examines each non- 
overhead order in the index-controlled 
entity. A counter is incremented by one 
for each Graphic Short Branch to a charac- 
ter stroke subroutine (except branches to 
the cursor or cursor null), indirect graph- 
ic branch (linkage to a subroutine, but not 
the orders within), no-op filler (SPM /F 
stored by GSP02 for scissored data) , and 
incremental and absolute orders with the 
beam bit on. After each increment of the 
counter, the address of the examined order 
is compared with the address of the 
detected order. If the addresses are the 
same, processing is completed and the con- 
tents of the counter are stored in the 
field IDXCT in GCOM. If the addresses are 
not the same, the next graphic order is 
examined as above. Graphic branches around 
nested subroutine entities are not counted. 
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Errors: None. 



GSP12 — Verification Direct Entry 



Chart: None. 



Function: To 



determine 
addresses 



the current and 
next ^rder addresses upon an order- 
controlled interrupt in a level-controlled 
entity. GSP12 also contains the verifica- 
tion, detect, and non-detect order programs 
attached to level-controlled entities. 
These order programs (1) brighten a level- 
controlled entity upon which a light pen 
detect occurs, (2) enable light pen atten- 
tions, or (3) disable light pen attentions. 

E ntry. : GSP12 from GSP08 

Exit : Returns through the address stored 
in the entry word to the next sequential 
instruction in GSP08. 

Input : None . 

Output : None. 

O peration : GSP12 obtains from the operand 
field of the last order executed (a Graphic 
Interrupt Conditional in a verification 
subroutine in GSP12) an index value to 
determine the address of the verification 
subroutine. Using the operand field of the 
SVRT order in the verification subroutine, 
the address of the next two orders in the 
level-controlled entity are determined and 
stored in the OADDR and NOADR field in 
GCOM. 

Comments : Within GSP12 are eighteen order 
subroutines (six levels for each of three 
detectability options) . Figure 18 shows 
the interaction of a level- controlled enti- 



ty with a verification subroutine. The 
first section of the subroutine (left 
bracket) is branched to by the second 
overhead order in the level-controlled 
entity. This left bracket subroutine 
enables light pen detects on the level- 
controlled entity. Upon return from the 
left bracket subroutine, the graphic orders 
are executed beginning with the SRVT order. 
The end overhead order in the level- 
controlled entity branches to the second 
section (right bracket) of the verification 
subroutine. This right bracket subroutine 
causes the execution of the graphic orders 
in the level-controlled entity three more 
times if a light pen detect occurs on the 
entity. An order controlled interrupt 
occurs if the light pen switch is closed 
after the three additional executions of 
the graphic orders. The total of four 
executions of the graphic orders in the 
level-controlled entity before the re- 
execution of the start timer instruction in 
the system display cause the image created 
by the level -control led entity to appear 
brighter on the 2250 screen. 



ERROR HANDLING SUBROUTINES 

The subroutine ERRIN permits the use of 
a user-provided error processing subroutine 
or the error processing subroutine IERRS, 
which causes a print-out on the principle 
print device of error information upon 
encountering an error condition within a 
GSP subroutine. Also see "GSP01 - Error 
Function. " 



ERRIN — Error Initialization 
Chart: None. 



GB N ELEND+1 
GSB LBV1 
A SRVT 

Graphic Orders 

B GB I A+l 



LBV1 



SRVT 

SPM /9 

GB I LBV1+1 



GBC 


I LBV1+1,D 


GBC 


I LBV1+1,D 


GBC 


I LBV1+1,D 


GIC 


1,DS 


GBC 


*,D 


SPM 


/4 


RVT 





Save; return address 
Enable light pen detects 
Branch to level -controlled 
entity 



Branch to level-controlled 
entity on light pen detect 

Light pen attention 
Reset detect latch 
Disable detects 
Branch to B+2 



Figure 18. Verification Subroutine Usage 
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Function : To store in GCOM the address of Errors : None, 
the error handling subroutine that will 
process non-1/0 error conditions. 



Entry ; ERRIN 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : Address of the error handling 
subroutine. 

Output ; See "Operation." 

Operation ; ERRIN stores the address of the 
error handling subroutine in the ERADR 
field in GCOM. 

Errors; None. 



INTERNAL SERVICE SUBROUTINES 

The following subroutines provide common 
functions for several of the GSP 
subroutines: 

• GSP01, which saves the status of index 
registers upon entering a subroutine, 
and establishes linkage for exit from 
the subroutine for normal and error 
conditions. 

• GSP03, which builds ECCBs for specified 
elements, finds ECCBs for specified 
elements, transfers generation control 
data between the ICA preface and GCOM, 
or initializes the generation control 
fields in GCOM. 



IERRS — Identify Errors 
Chart : JA 



GSP10, which provides 
arithmetic functions. 



floating point 



Function ; To produce one line of print on 
the console typewriter, consisting of a 
subroutine ID, error return code, cumula- 
tive error variable, and a count indicating 
the number of times external subroutines 
have been entered. The maximum count is 
+32767. If subroutines have been entered 
more than 32767 times, the count remains at 
32767. 

Entry : IERRS 

Exit : Returns through the address stored 
in the entry word to the next sequential 
instruction in GSP01. 

Input ; None. 



GSP01 — GSP Inner Subroutine 1 



Output : 
format: 



One line of print in the following 



Chart : KA 

Function : 

following 

GSP subroutines 

program: 



To provide one or more of the 

services required by most of the 

called by the mainline 



• Save function — Saves registers and 
performs other housekeeping. 

• Error function — Sets error variables 
in GCOM. 

• Return function — Restores registers 
and provides return linkage to the 
mainline program. 

Entry : GSP01 



"Routine ID=a, Error Code=b, 
c, Count=d." 



where 

a=two hexadecimal digits denoting the ID 

of the last GSP subroutine entered via 

a user's call statement. 
b=an error code in the range 0-16 set by 

the GSP. 
c=sixteen digits corresponding to the 

error indicators set in the cumulative 

error variable. 
d=five decimal digits, the count in GCOM. 

Operation : The subroutine ID, cumulative 
error variable, error return variable, and 
count are converted to the EBCDIC character 
equivalents and stored in their respective 
locations in the message to be printed. 
IERRS passes control to WRTYZ (the console 
print routine) and the message is printed. 



Cumulative= Exit : For the save function, returns to 
the next sequential instruction in the 
calling subroutine. For the error and 
return functions, returns to the next 
sequential instruction in the mainline 
program. 



Input : 

Argument 1 



in the 



an indicator word 
calling sequence. 
Argument 2 - for the error function: an 
error code in the 
accumulator. 

Output : See "Operation." 

Operation : GSP01 examines an indicator 
word in the calling sequence to determine 
what service is requested. The calling 
sequence and an explanation of the indica- 
tor word are as follows: 
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LIBF GSP01 



DC 



/nl n2 n3 n4 



nl indicates the service to be provided by 
GSP01 as follows: 

= save function 

1 = error function 

2 = return function 



lator lights and the count of external GSP 
subroutines entered (GSPEC) displayed in 
the extension lights. Depressing the Pro- 
gram start key causes the return function 
of GSP01 to be entered. 

Return function — GSP01 restores index 
register 1, 2, and 3, and returns to the 
mainline program by means of the address in 
the MLRET field in GCOM. When the return 
function is entered from GSPTM, $GCOM is 
set to zero before returning to the main- 
line program. 



n2 and n3 are reserved. 



n4 For save function indicates the number Errors : Code 11 — GSPIN has not been 



of arguments in the mainline calling 
sequence. 

For error function indicates source 
"(1=GSPIN; 0=others) . 

Save function — Index registers are 
stored in fields REGl, REG2 r and REG3 in 
GCOM. The address of the next sequential 
instruction in the mainline program is 
computed and stored in field MLRET in GCOM. 
This computation is done by adding to the 
first word of the external subroutine (the 
contents of the IAR are stored there by the 
CALL statement) the lower three digits (n2, 
n3, nU) of the indicator word which indi- 
cate the number of one-word parameters in 
the calling sequence. The result is the 
next sequential instruction in the calling 
program. GSP01 then stores the arguments 
in the mainline calling sequence in GCOM, 
beginning at field ARG1. The number of 
arguments stored is determined by n4 of the 
indicator word. The return error variable 
field in GCOM (RETEV) is set to zero, the 
address of GCOM is loaded into register 1, 
the address of the active ICA is loaded 
into register 2 (if there is an active 
ICA) , and control is returned to the call- 
ing subroutine. 

Error function — GSPOl stores the error 
code passed in the accumulator in the field 
indicated by RETEV in GCOM and ORs the code 
into the cumulative error variable field 
indicated by CUMEV in GCOM. If a direct 
entry subroutine for error processing is 
specified (see ERRIN) control passes to 
that subroutine. Upon return from the 
error processing subroutine, GSPOl then 
returns to the mainline program by means of 
the return function. If a direct entry 
subroutine is not specified, a WAIT 
instruction causes a hexadecimal FFFF to be 
displayed in the accumulator lights, and 
the contents of the field indicated by 
RETEV and the ID of the last external 
subroutine to be displayed in the extension 
lights. Depression of the program start 
key causes another WAIT statement to be 
encountered with the contents of the field 
indicated by CUMEV displayed in the accumu- 



called. 



GSP03 — GSP Inner Subroutine 3 



Charts ; KB,KC 

Function : To perform one of the following 
functions required by other GSP 
subroutines . 

• Build an ECCB in the active ICA. 

• Search for an ECCB in the active ICA. 

• Transfer control data needed for coor- 
dinate generation between GCOM and the 
active iCA's preface. 

• Initialize fields in GCOM with control 
data needed for coordinate generation. 

Entry : GSP03 

Exit : 

Normal - returns to the next sequential 

instruction in the calling 

subroutine. 
Error - returns through GSPOl to the 

mainline program. 

Input : 

1. A 1-word indicator in the calling 
sequence. 

2. An address or correlation value in 
the accumulator. 

Output : 

1. For the build function, a 4 -word ECCB 
in the active ICA and its address in 
the accumulator. 

2. For the search function, an ECCB 
address in the accumulator. 

3. For the transfer function, data 
transferred between GCOM and the ICA 
preface. 

4. For the initialization function, 
generation control data in GCOM for 
coordinate generation initialized 
with standard values. 
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Operation ; GSP03 first saves the index 
registers and the accumulator. An indica- 
tor word is then analyzed to determine what 
service is required. The calling sequence 
and an explanation of the indicator word 
are as follows : 

LIBF GSP03 



DC 



/nl n2 n3 n4 



nl indicates the service to be provided by 
GSP03 as follows: 

= build an ECCB as further defined by 

nU 

1 = search for an ECCB as further defined 

by n3 and n4 

2 = transfer control data between GCOM 

and the active ICA as further defined 
by n4 

3 = initialize fields in GCOM with stan- 

dard values for coordinate generation 

n2 is reserved 

n3 further defines the search function by 
indicating the type of argument being 
passed in the accumulator, as follows: 

= correlation value 

1 = address of the ECCB 

2 = an address within an element 

n4(A) further defines the search function 
by indicating the type of search requested, 
as follows : 

= find the address of the ECCB 

1 = find the address of the preceding 

ECCB on the chain 



2 = find the address of the ECCB for 
next outer element 



the 



or (B) further defines the build function 
by indicating the type of element for which 
an ECCB is to be built, as shown below. 
The accumulator contains the correlation 
value to be associated with the ECCB. (A 
value of /FFFF in the accumulator indicates 
that the ECCB is for an area in the ICA 
that was left after an element was 
updated.) 

= image entity 

1 = controlled entity 

2 = uncontrolled entity 

3 = subroutine entity 

4 = origin entity 

5 = message entity 

6 = linkage entity 



7 = tracking entity 

8 = level-controlled entity 

9 = indexed entity 

B = subroutine entity requested by IELMT 

(Assembler language) 
C through F = reserved 

or (C) further defines the transfer func- 
tion by indicating the direction of data 
transfer, as follows (the accumulator con- 
tains the ICA address): 

= transfer generation control data from 

GCOM to the ICA preface 

1 = transfer generation control data from 

the ICA preface to GCOM 

The services described above are tested for 
in the order of presentation below. 
Requests for a service other than initiali- 
zation require that an ICA be active. 



Initialization fu n ct ion — Fields LGXI 

set to 512. 
set to 



through LCYI in GCOM are 
Fields MDLST and OPLST in GCOM are 
zero. 



Build function — GSP03 performs a 
series of tests to determine whether or not 
the rules for nesting have been followed. 
If so, the ECCB is built using an available 
ECCB on the chain, if there is one, or by 
using the last four contiguous words in the 
ICA generation area. Should no words be 
available in the ICA, GSP04 (Push-Down) is 
called to make area available if there are 
elements present that are indicated as 
deleted. If area is made available by 
GSPOU, the ECCB is built as above. LAGAP, 
ECB, FAVCB, and CCB are updated, and the 
address of the new ECCB is put in the 
accumulator. 

Search function — Given a correlation 
value, the address of the ECCB is found by 
searching once from the beginning of the 
chain of ECCBs to its end or until the 
correlation value is found. Given an 
address within an element, however, 
requires that the chain always be complete- 
ly searched, since the address may be 
within a nest of elements. The address of 
the ECCB for the innermost element whose 
boundaries include the specified address is 
the one returned by GSP03. Requesting the 
address of an ECCB when the argument passed 
in the accumulator is also the address of 
an ECCB (n3=l and n4=0) is an error 
condition. 

If the address of the preceding ECCB on 
the chain was requested, the chain is 
searched again until the ECCB whose forward 
pointer (word 3) points to the ECCB speci- 
fied by the argument in the accumulator. 
If the address of the ECCB for the next 
outer element was requested, the end and 
start address fields of preceding ECCBs are 
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compared with those of the ECCB specified 
by the argument in the accumulator. This 
search ends when the ECCB is found or the 
beginning of the chain is reached. 

For each type of search (address of the 
ECCB, of the preceding ECCB, or of the ECCB 
for the next outer element) , a find results 
in the ECCB's address being returned in the 
accumulator; an unsuccessful search results 
in zero being returned in the accumulator. 

Transfer function — Fields LGXI through 
OPLST in GCOM (words 32 through 43) are 
moved to fields GENX through LSTOP in the 
ICA preface (words 10 through 19) or vice 
versa, depending on the value of n4 in the 
indicator word passed to GSP03. 

Comments ; ECCBs are built in descending 
core locations from the highest position 
within the ICA. There may be two chains of 
ECCBs in the ICA. The first is a chain of 
"active" ECCBs for elements that are or 
will be used in graphic displays. The 
addresses of the first and last ECCBs on 
the active chain are found in the SCB and 
ECB fields respectively in the ICA preface. 
An existing ECCB on the active chain may be 
modified to reflect an increase or decrease 
in the length of the element, or to indi- 
cate that the element is "deleted" (no 
longer desired for display) . ECCBs for 
deleted elements remain on the active chain 
with a correlation value of hexadecimal 
FFFF. 

The second chain consists of "available" 
ECCBs for elements whose area is over lay ed 
by other elements. The address of the 
first available ECCB is found in the FAVCB 
field in the ICA preface. The only ECCBs 
placed on the available chain are for those 
elements that were nested within elements 
indicated as deleted, and ECCBs for ele- 
ments that were indicated as deleted and 
have been overlayed by GSP04 (Push-down) or 
GSP05 (Push-up) . ECCBs on the available 
chain may be redefined and reused for any 
type of element. Chaining is accomplished 
by storing an index value in the FORPT 
field in the preceding ECCB on the chain. 
This index is used in an algorithm to 
determine the absolute address of the ECCB 
in core as follows: 

SCB-ECCB+4 



Error s ; 

Code 4 - There is invalid nesting. 
Code 9 - There is no active ICA. 
Code 5 - There are no words available in 
the ICA. 



GSP10 — Floating Point Functions 
Chart : None. 

Function: To provide several floating 
point functions required by the GSP. 
(Equivalent functions available in the 1130 
subroutine library are not usable by the 
GSP.) These functions and the identifying 
codes used in the calling sequence are: 

Function Code 

Extended Floating Point 
Load (ELD) 

Extended Floating Point 1 
Store (ESTO) 

Extended Floating Point 2 
Add (EADD) 

Extended Floating Point 3 
Subtract (ESUB) 

Extended Floating Point 4 
Multiply (EMPY) 

Extended Floating Point 5 
Divide (EDIV) 

Floating Point Load (FLD) 6 

FLOATING Point Store (FSTO) 7 



Entry : GSP10 

Exit : Returns to the next sequential 
instruction in the calling subroutine via 
the address stored in the entry word + 2. 

Input : An argument address, a function 
code (see above) , and in some instances a 
value in the floating accumulator. The 
calling sequence is as follows: 

LIBF GSP10 

DC address of the argument 

DC address of the function code 

Output : A value placed in the argument 
address or in the floating accumulator, 
depending on the function. 

Operation : GSP10 examines the function 
code and executes a branch to perform the 
requested function. The eight functions 
are duplicates of the corresponding float- 
ing point functions described in IBM 1130 
Subroutine Library . 

Errors: None. 
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DIAGNOSTIC AIDS 



This section is presented as an aid to those involved in examining 
core dumps of areas of the GSP. Figure 19 shows the core layout during 
execution of a GSP program. A sample GSP program is presented with dumps 
of the program taken before initialization and after each significant 
block of processing. These dumps reflect the sequential changes in the 
control blocks, communications areas, and data areas resulting from the 
processing. Comparison of the significant areas of the sample dumps with 
a core dump of a user's program should provide a starting point for 
determining the cause of the problem. 

The sample program shown in Figure 20 displays a rectangle which, when 
the object of a light pen attention, will be redisplayed with a diamond 
appearing within it. The following areas contain data which is used in 
creating the graphic elements: 

GCA, the generation control area. 
ICA, the image construction area. 
IATN, the array which will contain attention information. 

XS, YS, XT, YT, the arrays which contain the absolute x- and 
y-coordinate positions used in creating the graphic orders. 

GSPIN, ICAIN, and GCAIN are called to initialize GCOM, the ICA, and 
the GCA with standard values. The subroutines BELMT, IDPOS, PLINE, EELMT 
create the subroutine entity which contains graphic orders to draw a 
diamond. The subroutine BELMT creates an image entity within which the 
controlled entity created by the subroutines BELMT, MVPOS, PLINE, and 
EELMT is nested. The controlled entity contains graphic orders to draw a 
rectangle. The subroutine SATNS enables the GSP attention processing 
subroutine DSPYN to return attention information when a light pen 
attention occurs on the controlled entity (rectangle). EXEC causes the 
display of the rectangle. A light pen attention upon the rectangle 
causes the processing of the subroutines XELMT, MVPOS, LKSUB and EELMT 
which extend the image entity to include linkage to the subroutine 
entity. The second call to EXEC causes the display of the rectangle with 
the diamond appearing within it. 

The core dumps shown are taken at the following points in the program: 

PAUSE 0001 - after the FORTRAN program has been compiled but before the 
call to initialize the GSP. 

PAUSE 0002 - after the processing of the three initialization 
subroutines. 

PAUSE 0003 - after the graphic elements have been built, light pen 
attentions enabled, and the rectangle displayed. 

PAUSE 0003 (second execution) - after the subroutine entity has been 
linked to the extended image entity, and the rectangle and 
diamond have been displayed. 

This section of the PLM is formatted as a running commentary of the 
core storage dumps. It should be noted that reference to core locations 
and specific values apply to this sample program only. 

PAUSE 0001 



Figure 21 shows the contents of the areas of storage which have been 
defined in the FORTRAN program by the DIMENSION statement. At this time 
the array containing the input data is the only area which contains valid 
information. This is the result of the FORTRAN compilation; the 
remaining areas are initialized by the GSP initialization subroutines. 
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1130 RESIDENT MONITOR 



GCA, ICA and other data arrays 



MAINLINE PROGRAM 



GSP 

IN -CO RE 

SUBROUTINES 



USER'S SUBROUTINES 



OVERLAY AREA 
SUBROUTINES DESIGNATED 
AS LOCALS 




1 130 TRANSFER VECTOR TABLE 



Loaded 
through 
*G2250 
card 



GCOM 

GCHAR or 

GUPER 

GSP12 

GSP05 

GSP06 

GSP11 



Must reside 

in lower 

8K of storage 



Other called GSP subroutines 



>" Size = size of largest LOCAL subroutine 



COMMON 



Figure 19. 1130/2250 Main Storage Map 



70 



LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
OOOO 1111 1111 0000 

// FOR 
•LIST ALL 

DIMENSION GCA(21),ICAU00),IATN(20),XS(4),YS(4),XT<4),YT(4) 

DATA XS/256. 0,767. 0,767.0.256.0/ 

DATA YS/767. 0,767. 0,256. 0.256.0/ 

DATA XT/512.0,767.0,512.0,256.0/ 

DATA YT/767. 0,512. 0,256. 0,512.0/ 

1 PAUSE 0001 

CALL GSPIN(0,0,IRET,ICUM) 

CALL ICAIN(1,ICA(1),ICA(100),0) 

CALL GCAINIGCA) 

2 PAUSE 0002 
CALL BELMT(4,3) 

CALL IOPOSIGCA, 256. 0,512.0) 

CALL PLINE(GCA,XT,YT,4) 

CALL EELHT(4) 

CALL BELMT(2,4) 

CALL BELHT(3,2) 

CALL MVPOSIGCA, 256. 0,256. 0,0) 

CALL PLINE(GCA,XS,YS,4) 

CALL EELHT(2) 

CALL SATNSI2) 
5 CALL EXEC(1,2,0) 
10 PAUSE 0003 

CALL RQATN(IATN) 

IF <IATN( 11-2)10,20, 10 
20 CALL XELMTI2.il 

CALL MVPOSIGCA, 256. 0,512.0,01 

CALL LKSUB(4,0,1) 

CALL EELMT(2) 

GO TO 5 

END 
VARIABLE ALLOCATIONS 

GCAIR 1-0028-0000 XS(R )-003O-OO2A YSIR )-0038-0032 XT(R I-0040-003A YTIR )-0048-0042 ICA( I 1-0110-004A 

IATNII 1-0138-0112 IRETU )-013A ICUMU I-013C 

UNREFERENCED STATEMENTS 
2 

STATEMENT ALLOCATIONS 
1 -014E 2 -016D 5 -019B 10 -01A0 20 -01AD 

CALLED SUBPROGRAMS 
GSPIN ICAIN GCAIN BELMT IDPOS PLINE EELHT MVPOS SATNS EXEC RQATN XELHT LKSUB PAUSE 

REAL CONSTANTS 

.256000E 03-0140 .512000E 03-0142 

INTEGER CONSTANTS 

1-0144 0-0145 • 2-0146 4-0147 3*0148 

CORE REQUIREMENTS FOR 
COMMON VARIABLES 320 PROGRAM 130 

END OF COMPILATION 



// XEQ 


L 1 


♦G2250 


N N N N N 


R 41 5CC8 (HEX) HDS UNUSED BY CORE LOAD 


CALL TRANSFER VECTOR 


GSP04 


2171 


DELMT 


201B 


GSP05 


1DF0 


UELMT 


1CBD 


GSP08 


1403 


LKSUB 


0C45 


XELHT 


0B89 


RQATN 


0B41 


EXEC 


09F9 


SATNS 


09D9 


MVPOS 


0937 


EELHT 


07A9 


PLINE 


0773 


IDPOS 


0769 


BELMT 


06AF 


GCAIN 


0675 


ICAIN 


0571 


GSPIN 


048F 


GCOM 


03F7 


LIBF TRANSFER VECTOR 


IFIX 


1FEE 


XDD 


1FA4 


FARC 


1F82 


XMD 


1F40 


NORM 


1F16 


GSP02 


16D0 


GSP10 


15FE 


FLOAT 


15F4 


GSP01 


1351 


DSPYN 


0F4E 


GSP03 


OCFF 



PAUSE 0478 
SYSTEM SUBROUTINES 
ILS04 00C4 
ILS03 2204 
ILS02 00B3 

034C (HEX) IS THE EXECUTION ADDR 



Figure 20. Sample Program 
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ACCUMULATOR OOOO 


EXTENSION 


0000 


XR1 OlDE 


XR2 034D XR3 7F6C 


OVERFLOW OFF 




CARRY 


OFF 


ADDR 


***o 


***1 


***2 


***3 


***A 


***5 


***6 


***7 


***8 


***g 


»**A 


***B 


***C 


***0 


***E 


***F 


0000 


703F 


FFFB 


0000 


7F6C 


OFFA 


0120 


0080 


0000 


0091 


0091 


00B3 


2236 


00C4 


0091 


8000 


0000 


0010 


1200 


5540 


FFFF 


0000 


OlOE 


D100 


0001 


OlDE 


69FB 


703F 


0000 


0000 


00F2 


7400 


OOEE 


70F0 


0020 


C600 


225B 


0600 


7FC1 


72FF 


70FA 


4C00 


034C 


0485 


3000 


4C80 


0028 


003F 


0130 


0000 


0000 


0030 


0000 


0000 


0001 


OCOO 


0000 


0000 


0000 


0002 


7014 


0000 


1810 


7012 


0001 


0004 


FFFF 


0000 


0040 


7400 


0032 


70FD 


D8D6 


6902 


C480 


003F 


D001 


C8F3 


4400 


00F2 


COFO 


7C01 


COFO 


D0C7 


7400 


0050 


0032 


70FD 


08BD 


6580 


0039 


C101 


18D0 


C100 


D8BB 


6500 


01DC 


COFE 


1890 


4400 


00F2 


7400 


0060 


OOEE 


70FD 


4102 


0002 


OCOO 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0070 


OCOO 


0000 


0000 


OCOO 


0000 


0217 


FFFF 


0000 


0000 


0001 


0000 


OlEO 


0000 


0000 


0000 


0000 




0000 


__opjm__ 


3000 


4C80 








-^k&fi— _ 


0085 




3000 


4C80 


0089 


0000 
■ nnnn 


3000 


4C80 
















CA3C 


"D250 
0A3A 


C400 
D2EB 


4828 


70CI 


T)23A~^ 
1002 


*TB28 


15239 
70C0 


8UC/ ~* 

EA50 

C101 


924? 


01 (0 

0180 


16A 
D237 


/2u l 
EA42 


1 Ul 3 

8247 


D24D 


EA48 


023B 


9400 


0190 


009A 


4818 


701B 


1893 


180F 


1002 


EA3A 


18D0 


4810 


7002 


F251 


8230 


DA34 


C2EB 


100D 


4810 


OlAO 


7003 


C101 


1803 


D234 


4213 


CA38 


DA34 


4213 


C231 


0480 


0190 


9101 


4C20 


0116 


CA3C 


4808 


01H0 


7095 


8A40 


DA3C 


4830 


1810 


824F 


D100 


CA36 


DA34 


C101 


EA50 


D101 


4213 


C240 


D235 


C247 


01C0 


4820 


4213 


CA32 


D900 


C23C 


4808 


70E9 


7500 


0140 


C900 


DA32 


CA3C 


0900 


708B 


0000 


0000 


01D0 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


OOAO 


1111 


0170 


0105 


0E20 


0120 


01E0 


034C 


0000 


FFFF 


0000 


001E 


0000 


OlEO 


0000 


003E 


20BA 


7F6C 


0091 


0091 


00B3 


2236 


00C4 




011-0 


0091 


0091 


0091 


0091 


0091 


0091 


0091 


0091 


0091 


0091 


0000 


8000 


0000 


0000 


| 72FF 
0000 


70FA 
0000 


1 


0200 


4C00 


034C 


03CD 


3000 


4C80 


0028 


003F 


0130 


0000 


0000 


0000 


OCOO 


0001 


0000 


f GCA 


0210 
0220 


0000 
003F 


0002 
D0D1 


7014 
C8F3 


0000 
4400 


1810 
00F2 


7012 
COFO 


0001 
7001 


0004 
COFO r 


FFFF 


0000 


7400 


0032 


70FD 


D8D6 


6902 


C480 


. J 


4000 
4000 


0089 
0089 


5FE0 
4000 


008A 
008A 


5FE0 
5FE0 


008A 
008A 


4000 
4000 


0089 
006A 


>■ Input Data 


0230 


4000 
4000 


0089 
008A 


4000 
4000 


0089 
0089 


5FE0 
4000 


OOBA 
008A 


5FE0 
5FE0 


008A 
008A r 


J 


0240 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
3C00 


0000 
4C80 


0000 
0081 


0217 
0000 


\ICA 
J Preface 




0250 


FFFF 


0000 


0000 


0001 


0000 


OlEO 


0000 


0000 




0260 


3000 


4C80 


0085 


0000 


3000 


4C80 


0089 


0000 


3000 


4C80 


008D 


002A 


3000 


4CC0 


0091 


0217 




0270 


0000 


0000 


0000 


0000 


0120 


0000 


0000 


0000 


0000 


9000 


0000 


0000 


0000 


0000 


0658 


0658 






0280 


0658 


0000 


0000 


OCOO 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0051 


6906 


6A07 






0290 


2807 


080A 


4400 


00F7 


6500 


OlDE 


6600 


0340 


2000 


C802 


4CC0 


00B3 


0001 


9404 


0605 


D818 






02A0 


280E 


690F 


6A10 


0816 


1002 


4C10 


OODO 


4480 


002C 


FFFE 


6109 


0810 


1 140 


4580 


01F0 


2001 




►IC 


O2B0 


6500 


1000 


6600 


0000 


C803 


4CC0 


00G4 


4001 


0283 


0000 


0201 


OFOO 


0000 


0300 


0000 


0000 






02C0 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0011 


0000 


0000 


FF6A 


004B 


7400 


OOEE 


70FD 






02D0 


7002 


OOBA 


7015 


690F 


6A10 


1008 


003C 


18D0 


D056 


6211 


6AED 


COFO 


D0F4 


704E 


4C00 


01BD 






O2E0 


6908 


081E 


6500 


010E 


6600 


0340 


4C80 


00F7 


6500 


0004 


6600 


00F2 


0819 


D0C9 


4850 


70EE 






02FO 


C80D 


0900 


74FF 


OOEE 


7039 


C812 


CO 14 


4293 


1810 


D480 


0190 


70DD 


0001 


0120 


OFFA 


0120 






0300 


0004 


9500 


0004 


9500 


0122 


9600 


9400 


9781 


OEBA 


0121 


5002 


5004 


FECO 


0001 


0080 


0600 






0310 


0008 


5000 


0FF8 


0100 


0701 


0007 


OOOA 


009F 


FFFB 


9680 


0400 


0141 


0000 


FFFF 


0000 


0000 


1 Attention 


0320 


1810 
C900 


D0A6 
D8CC 


74FF 
D8D5 


0032 
1810 


1000 
1084 


70BC 

Dooe 


C0E3 
80E0 


70CF 
D01B | 


C0E8 


4400 


0028 


7035 


7401 


0032 


6500 


0004 


J Data Array 


0330 


80DF 
0000 


0030 
0000 


80DB 
0000 


8008 
0000 


8007 
4377 


0006 
0342 


4000 
4480 


0089 




0340 


4000 


008A 


0001 


0000 


0002 


0004 


0003 


0000 


7FFE 


0350 


0343 


0343 


0338 


033A 


6500 


0000 


7500 


030E 


7000 


6D00 


0365 


6500 


FF3A 


7500 


030E 


7000 


0360 


6D00 


0366 


4480 


7FF0 


0342 


030E 


030E 


0343 


4480 


7FFC 


0226 


4377 


0344 


4480 


7FFB 


0345 


0370 


0346 


4480 


7FFA 


0226 


033E 


0340 


4480 


7FF9 


0226 


023E 


0246 


0345 


4480 


7FF8 


0345 


4480 


0380 


7FFB 


0344 


0345 


4480 


7FFB 


0346 


0344 


4480 


7FF7 


0226 


033E 


33E 


0343 


4480 


7FF9 


0226 


0390 


022E 


0236 


0345 


4480 


7FF8 


0344 


4480 


7FF6 


0344 


4480 


7FF5 


0342 


0344 


0343 


4377 


0346 


03A0 


4480 


7FF4 


0336 


6500 


0000 


C500 


0336 


9400 


0344 


4C20 


039E 


4480 


7FF3 


0344 


0342 


4480 


O3B0 


7FF7 


0226 


033E 


0340 


0343 


4480 


7FF2 


0345 


0343 


0342 


4480 


7FF8 


0344 


4C00 


0399 


0000 


- 




03C0 


3200 


43B6 


03B6 


80BF 


9980 


8AF6 


80F6 


F6F6 


E780 


0459 


8F6F 


E808 


EF-07 


E880 


0000 


0000 




03D0 


0000 


0000 


0000 


0000 


0000 


0000 


002A 


008A 


4000 


0000 


0200 


FFFF 


03FF 


0010 


OOOF 


OOOE 






03EO 


OOOD 


OOOC 


OOOB 


OOOA 


0009 


0008 


0007 


0006 


0005 


0004 


0003 


0002 


0001 


0000 


0000 


001E 






03F0 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 






0400 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0019 






0410 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0200 


0200 


008A 


4000 


0000 


008A 


4000 


0000 


0200 




-G 


0420 


0200 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 






0430 


0000 


0000 


0000 


OCOO 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0000 






0440 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0459 


"1 System 
J Display 




0450 


| 3400 
2C00 
0459 


2C01 
0474 


0456 
0459 


3400 
3109 


2C00 
3300 


03C0 
03CA 


2C00 

3100 


0469 
2802 


2C00 
0470 


0000 
0469 




0460 
0470 


3105 
3400 


3200 
2001 


4200 
0002 


0200 
0469 


2C00 
2801 


0000 
0469 




9404 
70F6 


6A12 
7201 


6680 
6A03 


7FE3 
6600 


7400 
0000 


0032 
4C00 


70FD 
0000 


1010 
2000 


D400 




0480 


OOFO 


C680 


0000 


4400 


0028 


7400 


OOFO 


0000 


0490 


6D00 


04EE 


6E00 


04EF 


6F0O 


04F0 


C400 


OOOE 


9400 


0007 


905A 


D051 


C480 


04ED 


D04C 


6580 


C4A0 


04EB 


C1FF 


905B 


4820 


7004 


C1E4 


9055 


4C18 


04AE 


C04E 


1800 


C050 


3000 


6038 


6000 


0063 


04B0 


6369 


1010 


DIF6 


7101 


73FF 


70FC 


6580 


0063 


6303 


OlDE 


7 IFF 


73FF 


70FC 


6580 


0063 


C032 


04C0 


01F8 


6780 


04F0 


4374 


3000 


C1F5 


0142 


010D 


6780 


0063 


7362 


6B1F 


C01E 


0158 


C163 


E821 


04D0 


D163 


D165 


0167 


0160 


D16F 


6780 


04ED 


73FF 


6600 


04FF 


C300 


DOOF 


DOOF 


74FF 


04EB 


C480 


04E0 


04EB 


E01B 


9200 


4E98 


0001 


C200 


9015 


4C18 


051E 


7202 


70F4 


0000 


0000 


0000 


0000 


0000 


04F0 


0000 


0400 


0030 


OOBA 


4000 


0001 


OOOC 


OOOD 


200C 


200D 


0000 


0000 


FFFF 


FEOO 


0000 


0200 






__0_600 


050C 


0600 


0510 


CAOO 


0514^ 


C800 


0515, 




^051C 


FFFF 
-i06E__ 


CODF 


D155 


73FF 
__£68fl-. 


70CA 








436E 
05C4 


2000 
C14A 


C480~ 

C1F4 

D0F6 


436E 
C140 


91F5 


C1EA 
4C18 


70FC 
05E3 


C140 


91F3 


4C18 


— Tfooo 

05E0 


0000 
74FE 


~"*0"OTm- 
05CB 




05D0 


0049 


4C08 


7005 


05E0 


74FF 


05C8 


7002 


74FD 


05CB 


C14B 


D0E5 


80E2 


90E2 


4C10 


05C7 


6680 


5CC 


4C80 


05CE 


0000 


05F0 


C152 


DODB 


4C18 


0600 


D0D7 


6A09 


4374 


2000 


6680 


05CC 


CUD 


D202 


CUE 


D201 


6600 


0000 


0600 


4C80 


05EF 


91F5 


4C20 


0623 


6A10 


6680 


05CB 


C14B 


9201 


4C20 


0623 


C580 


0049 


D200 


COBB 


0610 


013D 


C201 


D152 


4374 


2001 


6600 


0000 


C201 


DUE 


C202 


DUO 


6680 


05C0 


C20B 


4420 


0625 


0620 


709D 


CIED 


70A2 


CIF5 


70A0 


0000 


D010 


9152 


4820 


700C 


6A0F 


740B 


063A 


6680 


0616 


C20B 


0630 


0480 


063A 


C09A 


D20B 


4C80 


0625 


6600 


0000 


C20B 


70EC 


0000 


4371 


1948 


0000 


4C00 


0575 


0640 


C400 


0063 


800C 


D009 


C009 


D480 


064D 


4371 


1950 


0640 


0000 


4C00 


05C2 


0000 


3400 


0062 


0650 


4480 


7FF1 


5000 


0000 


436E 


0001 


C149 


9033 


D030 


C141 


91F3 


4C18 


0660 


7402 


0689 


7002 


0660 


7403 


0689 


6680 


0689 


6580 


068B 


1010 


D200 


7201 


71FF 


70FC 


6580 


0063 


C1F5 


436B 


6680 


0670 


0689 


7204 


6A01 


4368 


0000 


0001 


7206 


6A01 


4368 


0000 


0001 


6680 


0689 


C1F5 


021C 


D21D 


0680 


D21E 


D21F 


C1E5 


D202 


D203 


C004 


0220 


436E 


2000 


0000 


2580 


002A 


2400 


0000 


436E 


0002 


0690 


CllF 


100E 


4C28 


06F7 


C580 


0049 


4C08 


06F9 


1010 


012B 


D12A 


C580 


004A 


4C08 


06F4 


91F0 







GCOM 



Figure 21. PAUSE 0001 



72 



PAUSE 0002 

After the initialization subroutines have been called as shown in 
Figure 22, the following areas contain valid data to be used by the GSP. 

The GCA ; The GCA contains the standard values as specified in the call 
to GCAIN. Table 8f in Appendix A describes the standard values found in 
the GCA. 

The ICA : The ICA contains three sections; the ICA preface, the area 
where the graphic orders are to be stored, and the area containing the 
ECCBs for the various graphic elements. The ICA preface is initialized 
with the standard values found in Table 9| in Appendix A with the 
following exceptions: 



Core 

Address 

/0248 

/0249 

/02UA 

/024B 
/024C 



Mnemonic 
SAVA 



EAVA 



NAVWD 



SCB 



ECB 



ICA 
Location 



Comments 

Pointer to /0260, the address where the 

first graphic order will be positioned. 

Pointer to /030B, the address contained 
in the LAGAP field of GCOM. EAVA is 
used as a save area for LAGAP during 
update functions. 

Pointer to /0260, the address contained 
in the NAGAP field of GCOM. NAVWD is 
used as a save area for NAGAP during 
update functions. 

Pointer to /030C, the first ECCB in the 
chain. 

Pointer to /030C, the last ECCB in the 
chain. 



The ICA proper, the area where graphic orders are to be stored, contains 
zeros after the initialization process. 

The ECCB area contains the ICA ECCB after initialization as a result of 
the call to the ICAIN subroutine. The ICA ECCB has the following format: 



Core 

Address 

/030C 

/030D 



Mnemonic 
CORVL 

ELSTA 



ECCB 

Location 


1 



Comments 

Correlation value of 1. 

Pointer to /0248, the start address of 
the ICA. 



/030E 



ELEND 



Pointer to /030F, the end address of 
the ICA. 



/030F 

(bit 0-10)FORPT 



Pointer to the next ECCB; at this time 
it contains zeros since the next ECCB 
has not yet been built. 



/030F 
(bit 11) 



INDIC 



A value of 1 indicating the element is 
ended. 



/030F INDIC 
(bit 12-15) 



All zeros; 
entity. 



the code for an 



image 



Diagnostic Aids 73 



ACCUMULA 


TOR 0000 


EXTENSION 


0000 


XR1 0248 


XR2 036C X«3 7F6C 


OVERFLOW OFF 




CARRY 


OFF 




ADDR 


***o 


***1 


***2 


***3 


***4 


***5 


***6 


***7 


***8 


***9 


***A 


***B 


***C 


***D 


***E 


***F 


0000 


703F 


FFFB 


0000 


7F6C 


OFFA 


0120 


0080 


0000 


0091 


0091 


00B3 


2236 


00C4 


0091 


8000 


0000 


00 10 


1200 


5540 


FFFF 


0000 


01DE 


0100 


0001 


0248 


69FB 


703F 


0000 


OCOO 


00F2 


7400 


OOEE 


70FD 


0020 


C600 


2256 


D600 


7FC1 


72FF 


70FA 


4C00 


034C 


0485 


3000 


4C80 


0028 


003F 


0130 


0000 


0000 


0030 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0002 


7014 


0000 


1810 


7012 


0001 


0004 


FFFF 


0000 


0040 


7400 


0032 


70FD 


08D6 


69D2 


C480 


003F 


0001 


C8F3 


4400 


00F2 


COFO 


7C01 


COFO 


DOC 7 


7400 


0050 


0032 


70FD 


0880 


6580 


0039 


C101 


1800 


C100 


08BB 


6500 


010C 


COFE 


1890 


4400 


00F2 


7400 


0060 


OOEE 


70FD 


4102 


03F7 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0070 


0000 


0000 


0000 


0000 


0000 


0217 


FFFF 


0000 


0000 


0001 


0000 


OIEO 


0000 


0000 


0000 


0000 


0080 


0000 


0000 


3000 


4C80 


0081 


0000 


3000 


4C80 


0085 


0000 


3000 


4C80 


0089 


0000 


3000 


4C80 


0090 


008D 


002A 


3000 


4CC0 


0091 
0658 


0217 
^06>»-" 


0000 


0000 


0000 

-—Q&go 


0000 
0000 


0120 

0000 ■' 


0000 


0000 


0000 

__o_p_oo_ 


0000 
_00JlO- 


9000 




















0150 


0028 


7035 


7401 


0032 


6500 


0004 


~C90"0"~ 




"~"~fJ8D5 


"Tsitr- 








-Dtmf 


80DF""' 




0160 


800B 


8008 


8007 


D006 


62FD 


69C2 


C101 


EODO 


D101 


9400 


00A4 


4828"~~ 


"7006 


C101 


80C7 


7401 


0170 


016A 


7201 


70F5 


6600 


00F2 


C230 


E249 


D250 


C400 


009F 


EA4E 


D23A 


EA43 


D239 


EA50 


9247 


0180 


D237 


EA42 


8247 


D240 


EA48 


D23B 


CA3C 


0A3A 


D2EB 


4828 


70C1 


1002 


4828 


70C0 


C101 


9400 


0190 


009A 


4818 


7018 


1893 


180F 


1002 


EA3A 


1800 


4810 


7002 


F251 


8230 


0A34 


C2EB 


1000 


4810 


01A0 


7003 


C101 


1803 


D234 


4213 


CA38 


DA34 


4213 


C231 


D480 


0190 


9101 


4C20 


0116 


CA3C 


4808 


0180 


7095 


8A40 


DA3C 


4830 


1810 


824F 


0100 


CA36 


DA34 


C101 


EA50 


D101 


4213 


C24D 


D235 


C247 


01C0 


4820 


4213 


CA32 


D900 


C23C 


4808 


70E9 


7500 


0140 


C900 


0A32 


CA3C 


D900 


708B 


0000 


0000 


0100 


0000 


0000 


0000 


OCOO 


0000 


0000 


0000 


0000 


0000 


0000 


OOAO 


1111 


0170 


0105 


0E20 


0120 


oieo 


034C 
0091 


0000 
0091 


FFFF 
0091 


0000 
0091 


001E 
0091 


0000 
0091 


OIEO 
0091 


0000 
0091 


003E 
0091 


20BA 
0091 


7F6C 
0000 


0091 
8000 


0091 
0000 


00B3 
0000 


2236 


00C4 




O1F0 


0000 
0000 


0000 
0000 


1 


0200 


03FF 


03FF 


0081 


4000 


0000 


0000 


0000 


0000 


0081 


4000 


0000 


0000 


0000 


0000 


\-GCA 


0210 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 


0000 


0001 


0001 


0001 


0001 


2580 


0000 


J 


0220 


4000 
4000 


0089 
0089 


5FE0 
4000 


008A 
008A 


5FE0 
5FE0 


008A 
008A 


4000 
4000 


0089 
008A 


\ Input Dc 


0230 


4000 
4000 


0089 
008A 


4000 
4000 


0089 
0089 


5FE0 
4000 


008A 
008A 


5FE0 
5FE0 


008A 
008A 


0240 


0260 
0000 


030B 
008A 


0260 
4000 


030C 
0000 


030C 
0200 


0000 
0200 


0000 
0000 


0000 
0000 




0250 


0000 


0000 


0000 


0000 


0200 


0200 


008A 


4000 


0260 


0000 
0000 


0000 
0000 


0000 
0000 


OCOO 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 


0000 


0000 


0000 


0000 


y 
\ICA 

/ eccbJ 


0300 


| 0001 


0248 


030F 


0010 


0310 


0008 


5000 


0FF8 


0100 


0701 


0007 


OOOA 


009F 


FFFB 


9680 


0400 


0141 


0000 


FFFF 


0000 


0000 


0320 


1810 


00A6 


74FF 


0032 


1000 


70BC 


C0E3 


70CF 


C0E8 


4400 


0028 


7035 


7401 


0032 


6500 


0004 


0330 


C900 


D8CC 


D805 


1810 


1084 


DOOE 


80E0 


001B 


0000 


D030 


0000 


8008 


8007 


D006 


4000 


0089 


0340 


4000 


008A 


0001 


0000 


0002 


0004 


0003 


0000 


0000 


0000 


0000 


OCOO 


4377 


0342 


4480 


7FFE 


0350 


0343 


0343 


0338 


033A 


6500 


0000 


7500 


030E 


7000 


6000 


0365 


6500 


FF3A 


7500 


030E 


7000 


0360 


6000 


0366 


4480 


7FF0 


0342 


030E 


0248 


0343 


4480 


7FFC 


0226 


4377 


0344 


4480 


7FFB 


0345 


0370 


0346 


4480 


7FFA 
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Figure 22. PAUSE 0002 
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GCOM : GCOM contains the following values after the initialization 
process has been completed. The fields of GCOM which have not been 
described have the standard values found in Table 7 of the Appendix A. 



Core 

Location Mnemonic 



GCOM 
Location 



Comments 



/03C9 



/03DU 



GSPEC 



-47 A Graphic Short Branch order to /0459, 
the second start timer in the system 
display. 

-35 The number 3, representing the number 
of times GSP01 has been called by 
external subroutines. 



/03F1 



SSA 



-6 



Pointer to OCE8, 
tion save area. 



the GSP03 search func- 



/03F4 



IDINT 



-3 The ID word for GSP01 (/C000), indicat- 
ing the last internal subroutine that 
executed. This word is useful in 
determining at what point program 
execution ceased. 



/03F5 



IDGSP 



/03F7 
/03F8 
/0H1H 

/0415 

/0434 



LPDE 



OCDE 



NAGAP 



LAGAP 



ACICA 



-2 The ID word for GCAIN (/5000), indicat- 
ing the last external subroutine that 
executed. This word is useful in 
determining at which point program 
execution ceased. 

Pointer to /136D, the address of the 
light pen direct entry subroutine. 

1 Pointer to the address of the order 
controlled direct entry subroutine. 

29 Pointer to /0260, the next available 
word in the ICA for storing a graphic 
order. 

30 Pointer to /030B, the address of the 
last available word in the ICA for 
storing a graphic order. 

61 Pointer to /030C, the address of the 
ECCB for the active ICA. 



/0435 



RETEV 



62 



Pointer to /0338, the address 
return error variable. 



of the 



/0436 



/043C 



/043D 



CUMEV 



MLRET 



REG1 



63 Pointer to /033A, the address of the 
cumulative error variable. 

69 Pointer to /036B f the return address of 
the mainline program. 

70 The save area for index register 1; 
currently pointing to /0248, the first 
available position for storing an 
order. 



/043F 



REG3 



72 The save area for index register 3; 
currently pointing to /7F6C, the TV 
table. 



/0440 



ARG1 



73 



Pointer to /0226 (GCA) , the argument 1 
save area. 
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/0441 
/0442 
/0443 
/0449 
/044F 
/0458 
/045B 
/045D 
/0467 

/0468 
/046B 
/046E 

/046F 
/0473 
/0475 
/0476 



ARG2 

ARG3 

ARG4 

AICAP 

ASD 

SDSW 

SD2AD 

SD3AD 

xxxxx 



xxxxx 



SCNND 



74 



75 



76 



82 



88 



96 



100 



102 



112 



113 



116 



119 



120 



124 



126 



127 



PAUSE 0003 (First Execution) 



Pointer to /030E (ICA), the argument 2 
save area. 

Pointer to /0248 (ICA end address), the 
argument 3 save area. 

Pointer to /0343 (ICA redefine option), 
the argument 4 save area. 



Pointer 
preface. 



to /02 48, the active ICA 



Pointer to /0459, the second start 
timer order in the system display. 

Pointer to /0456 f the first start timer 
in the system display. 



Pointer to /03C0, 
processing message. 



the address of the 



Pointer to /0469, the address of the 
scanning pattern. 

Pointer to /0474, that part of the 
system display used to locate position 
of the light pen on no detect. 



Pointer to /0459, the second 
timer in the system display. 



start 



Graphic Short Branch order to the scan- 
ning pattern. 

Address word of GBC order pointing to 
/0 470, used in scanning pattern 
function. 

Graphic Short Branch to /0469, used in 
scanning pattern functions. 

Graphic Short Branch to /0469, used in 
scanning pattern functions. 

Pointer to /0469, address word of GBC 
to SCAN1. 

Graphic Short Branch to /0459, second 
start timer order in system display. 



Figure 23 shows the contents of the selected core locations (ICA and 
GCOM) after the first call to EXEC. The three graphic elements and their 
ECCBs have been built and light pen attentions enabled resulting in the 
following changes within the core locations : 



The ICA 

Core 
Address 

/024C 



Mnemonic 



ECB 



Word 
Location 



Comments 

Points to /0300, the last ECCB on the 
active chain. Note that words 2 and 3 
have not changed as they are used as 
save areas for update functions. 



76 



/0260 



/0300 



ECCBs 



25 



The three graphic elements have been 
generated in the lower core area of the 
ICA. 

ECCBs for the three elements have been 
built and chained to the ECCB for the 
ICA in descending core positions. 



GCOM 

Core 
Address 

/03D4 



/0405 
/0410 
/0414 
/0415 
/0465 



Mnemonic 



GSPEC 



IMECB 



SATEN 



NAGAP 



LAGAP 



SD5AD 



Word 
Location 

-35 



14 



26 



30 



31 



110 



PAUSE 0003 (Second Execution) 



Comments 

Indicates that external GSP subroutines 
have been entered 14 times. 

Points to /0304, the address of the 
image entity ECCB. 

Indicates that light pen attentions are 
enabled. 

Points to /0293 r the address where the 
next graphic order will be stored. 

Points to /02FF, the address where the 
last graphic order can be stored. 

In system display, points to /027B, the 
first order of the image entity. 



Figure 24 shows the contents of the selected core locations (ICA, 
Attention Array, and GCOM) after the second call to EXEC. The light pen 
attention upon the rectangle (controlled entity nested within the image 
entity) has caused the program to link the subroutine to the image entity 
resulting in the following changes: 

The ICA 



Core 
Address 

/0249 



/024A 



/028E 



Mnemonic 



EAVA 



NAVWD 



Word 
Location 



Comments 

Points to /02FF, the last position for 
storing orders in the ICA; has been 
updated by XELMT. 

Points to /0298, the position for the 
storing of the next graphic order; has 
been updated by GSP05. 

Points through /0309, the subroutine 
ECCB, the linkage to the subroutine 
entity. 



Attention Array 




Core 


Word 


Address Mnemonic 


Location 


/0336 


1 


/0332 


3 



Comments 

Indicates a light pen attention. 

Indicates that detect was not on a 
character. 
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/0330 

/032E 

/032C 
/032A 
/0328 

/0322 

/0320 



4 x- coordinate of the line on which the 
detect occurred. 

5 y- coordinate of the line on which the 
detect occurred. 

6 Correlation value of the ICA. 

7 Correlation value of the image entity. 

8 Correlation value of the controlled 
entity. 

11 Address of the order causing the 
attention. 

12 Address of the next order after that 
causing the attention. 



GCOM 

Core Word 

Address Mnemonic Location Comments 

/03D4 GSPEC -35 Indicates that external GSP subroutines 

have been entered 20 times. 

/03FD ATNDT 7-12 Contains the results of the XIO Read 

Status command issued by DSPYN. 

/0406 OADDR 16 Points to /0286, address at which the 

interrupt occurred. 

/0407 NOADR 17 Points to /0287, next address after the 

interrupt . 

/0408 ICACV 18 Contains the correlation value for the 

ICA. 

/0409 IECW 19 Contains the correlation value for the 

image entity. 

/040A CECV 20 Contains the correlation value for the 

controlled entity. 

/0411 RQNDA 27 Points to /11D6, the address of the 

attention array in DSPYN. 

/0414 NAGAP 30 Points to /0298, the address where the 

next graphic order will be stored in 
ICA. 
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2580 


002A 


2400 


0385 


436E 


0002 


0690 


C11F 


100E 


4C28 


06F7 


C580 


0049 


4C08 


06F9 


1010 


D12B 


D12A 


C580 


004A 


4C08 


06F4 


91F0 


O6A0 


4C30 


06F4 


4C10 


0733 


81F5 


4C20 


06AF 


C1DB 


4C18 


0740 


CIED 


D02B 


C1E4 


D1DA 


7025 


C580 


0680 


004A 


91F5 


4C20 


06B7 


CIF4 


D021 


7010 


C580 


004A 


91F4 


4C20 


06BF 


C1F5 


D019 


7015 


C580 


06C0 


004A 


91F3 


4C20 


06D0 


C1F5 


01F9 


4374 


2000 


4374 


3000 


C831 


4365 


2000 


C1F3 


D008 


7004 


06DO 


1010 


D005 


4374 


3000 


C580 


0049 


4374 


0001 


C580 


004A 


91F5 


4C18 


06F2 


C580 


004A 


91F4 





MCA 



>GCOM 



Figure 24. PAUSE 0003 (second execution) 
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GRAPHIC ORDER REFERENCE TABLE 



Table 5 lists the graphic orders commonly used in image generation. 
Variables are indicated by XXXX or XXX. IBM 2250 Display Unit Model 4 
(A27-2723) gives information concerning graphic orders in greater detail. 

Table 5. Graphic Order Reference Table 



Hexadecimal I 

Value [Mnemonic 



Comments 



XXXX 
XXXX 
XXXX 
XXXX 
XXXX 
XXXX 
XXXX 



2000 

2001 

2002 

2800 

2801 

2802 

2880 

3100 
31031 
310CI 
310F 1 

3101 

3102 

3104 

3108 

310A 

3200 

3201 



3300 

3301 

3400 

3500 XXXX 

3600 

4 XXX XXXX 

5XXX XXXX 

6 XXX 

7 XXX 



GI 

GIC 

GIC 

GB 

GBC 

GBC 

GBI 

GNOP 

SPM 
SPM 
SPM 
SPM 
SPM 

SGMV 

SGMP 

SCMB 
SCML 
STMR 
SRVT 
RVT 
|MBA 

Idba 

mbax mbay 

dbax dbay 



Graphic Interrupt (unconditional) 

Graphic Interrupt Conditional (switch closed) 

Graphic Interrupt Conditional (light pen detect) 

Graphic Branch (unconditional) 

Graphic Branch Conditional (switch closed) 

Graphic Branch Conditional (light pen detect) 

Graphic Branch Indirect 

No operation performed 

Set Pen Mode (defer detect interrupts) 

Set Pen Mode (enable detect interrupts) 

Set Pen Mode (disable light pen detects) 

Set Pen Mode (enable light pen detects) 

Set Pen Mode (enable light pen detects and 
interrupts) 

Set Graphic Mode Vector (for generation of 
lines) 

Set Graphic Mode Point (for generation of 
points) 

Set Character Mode Basic 

Set Character Mode Large 

Start Timer 

Store Revert Register (in second word) 

Revert (branch to address in revert register) 

Move Beam Absolute (invisible positioning) 

Draw Beam Absolute (vector or point visible) 

Short Move Beam Absolute (either x- or y- 
direction) 



Short Draw Beam Absolute (either x- or 
direction) 



y- 
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Note: If the second digit of the first word in any of the Graphic Branch 
or Graphic Interrupt orders is a 4 or a C, the order is a GNOP. 

Graphic Short Branch orders are one word in length with the first 
digit usually a zero (0). 
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FLOWCHARTS 



This section contains autocharts for 
most of the subroutines described in the 
preceding sections. Charts are not 
included for subroutines whose logic can be 
understood by the preceding subroutine 
description. The charts are to be used in 
conjunction with the subroutine descrip- 
tions and listings. The charts are ordered 



alphabetically by chart identification and 
match the sequence in which the subroutines 
are described. Related subroutines have 
the same first character in their chart 
identification (A for initialization sub- 
routines, B for image management subrou- 
tines, etc.) Standard flowchart conven- 
tions are used. 
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Chart AA. GSPIN - GSP Initialization 



***** A3 ********** 



<:***A1********* 

* 

GSPIN * 

*(************** 



|cu***Bl******* 



.* 1ST ENTRY *. NO 
*, IN TV TABLE .* . • . 
*. GCOM .* 



**** 

* * 

* C2 * 



* STORE * 
♦GCOM ADDRESS IN* 

* COMMA * 

* * 
***************** 



GS017 X 

*****F1********** 

* ZERO * 

* GCOM FROM * 

* CONSTANTS TO * 
♦SYSTEM DISPLAY * 

* * 
***************** 



*****G1********** 

* * 
♦INIT GCOM WITH * 

* STANDARD GSP * 

* VALUES * 

* * 
***************** 



* C2 *... 

* * 
**** 

X 
*****C2********** 

* * 

* * 
. X*LOAD ERROR CODE* 

* * 

* * 
***************** 



* WAIT * 

* * 
***************** 



****E2********* 

* RETURN * 

* TO SUPERVI SOR * 

* * 
*************** 



* STORE ADDR 




* 








*IN PROPER WORD 


* 






* START * 


* IN GCOM 




* 






♦SYSTEM DISPLAY * 


* 




* 






* * 


***************** 






♦***♦******♦♦♦♦♦♦ 












**** . 












* * . 












* B4 *.X. 












* ♦ 


X 










♦ ♦♦♦ 


GS035 .*. 








GS215 X 


B3 *. 










*****B4*******^** 


.* *■ 










* * 


.* LAST 


* 


NO 




* RESTORE ♦ 


♦.IN-CORE ENTRY 


* 






♦ REGISTERS * 




* 










*• • + 










♦ ♦ 


*. .* 






X 




***************** 


* YES 






*♦♦ 






**** . 






* 


* 




* * . 






* J 1 


* 




* C3 *.X. 






* 


* 




* * 






*** 






**** X 












GS110 .*. 








GS250 


C3 *• 










X 


.* * 










****C4** ******* 


.* ERROR 




. YES 




* * 


*. VARIABLES 




• * 






* RETURN * 


*. EQUAL 
*. .* 


* 




a 




* * 
*************** 



*****D3 ********** 

* STORE ERROR * 

* VARIABLE * 

* ADDRESSES IN * 

* GCOM ♦ 

***************** 



*****E3 ********** 



***************** 



■* INTEGER 
. PRECISION 
♦•STANDARD 



* INTEGER *. YES X * STORE ♦ 

PRECISION = •* X*OPTION CODE IN * 

► • 1-WORD -* * GCOM * 

*. .* * * 

*. .* ***************** 





* ANY * 


. 


*'. IN-CORE 


.* 




*. SUBR .* 






*. .* 






*. .♦ 






♦ YES 




**** . 




* 


♦ 








Jl *.X 






4 


* 






**** 






GS020 X 




*****J J********** 


* 




* 


* 


GET ADDR 


* 


* 


IN NEXT TV 


* 


* 


TABLE 


ENTRY 


* 



**** 

* * 
•X* C3 * 

* * 
**** 



♦LOAD ERROR CODE+X. 

* ♦ 

♦ * 
***************** 



.♦ REAL *. YES 

. PRECISION = ...... 

♦.STANDARD .* 



************* 



***************** 



.♦ REAL *. YES X * STORE * 

. PRECISION = .*........ X*OPTION CODE IN ♦ 

♦.EXTENDED .♦ * GCOM ♦ 

*. .♦ * * 

*. .* ***************** 



**** 

* * 

* A3 * 

* * 
**** 



***************** 

X 

**** 

* * 

* 84 ♦ 

* * 
**** 
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Chart AB. ICAIN - ICA Initialization 



****A1 ********* 
» * 

» ICAIN * 

* * 

*************** 



*—*—*—*—*—*—*—*_* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



**** 
► * 
V CA * 
I- * 

**** 



* COMPUTE * 

* ICA ECCB * 

* ADDRESS * 

* * 
***************** 



.* ICA *. 

♦LENGTH GREATER. 

*. THAN 28 .* 



*****G1 ********** 
♦GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
***************** 



*****H1 ********** 

* STORE LAST * 

* AND NEXT * 
♦AVAILABLE WORD * 

* ADDRESSES IN * 

* PREVIOUS ICA * 
***************** 



DEFINE/ 


* 


YES 


INITIALIZE 


.*.... 


. OPTION 


.* 




*. .* 






*. .* 




X 


* NO 




**** 






* 






* A2 


X 




* 


**** 




**** 



*****A2* ********* 
♦STORE ICA ECCB * 

* ADDRESS AND * 
*LAST AVAILABLE * 
*WORD IN ICA AND* 

* GCOM * 
***************** 



*****B2********** 

* * 
♦STORE ICA START* 

* AND END * 

* ADDRESSES IN * 

* ICA ECCB * 
***************** 



*****C2* ********* 

♦ STORE ♦ 
♦FIRST AVAILABLE* 
♦WORD ADDRESS IN* 

♦ ICA AND GCOM ♦ 

♦ ♦ 
***************** 



*****D2********** 

* STORE * 

* CORRVAL AND SET* 

* EELMT IN ICA * 
*ECCB ZERO REST * 

* OF FORPT * 
***************** 



*****£2*** ******* 

* * 

* STORE POINTER * 

* TO PREVIOUS * 

* ACTIVE ICA * 

* * 
***************** 



IC005 X 

*****F2** ******** 

* ZERO REST * 

* OF ICA * 

* INITIALIZE * 

* GENERATION * 

* CONTROL DATA * 
***************** 



*****G2********** 
*GSP03 /KB* 

*-*-*-*-♦-♦-*-*-* 

* TRANSFER * 
♦FUNCTION ICA TO* 

♦ GCOM ♦ 
***************** 



*****H2********** 
*DSPYN /DD* 

♦—♦—*—*—♦—♦—*-*—* 
♦STORE LIGHT PEN* 

* DIRECT ENTRY * 

* SUBROUTINE * 
***************** 



IC010 X 

***** J2********** 
*DSPYN /DD* 

*-*-*-*-*-*-*-*-* 
* STORE ORDER * 
♦CONTROL DIRECT * 
♦ENTRY SUBR ADD ♦ 
♦♦♦**♦*********** 



.* ICA *. 

END 

ADDRESSES 

EQUAL 



****C4********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



*****D3 ********** 

* * 

* STORE * 
♦CORRVAL IN ICA * 

* ECCB * 

* * 
***************** 



*****E3** ******** 

* * 

* STORE ICA * 
*ECCB ADDRESS IN* 

* GCOM * 

* * 
***************** 



*****F3 ********** 

* * 

* STORE ICA * 

* START ADDRESS * 

* IN GCOM * 

* * 
***************** 



*****G3 ********** 

* * 

* UPDATE * 

* CHAIN OF ICA * 

* POINTERS * 

* * 
***************** 



IC068 X 

*****H3********** 
♦GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* TRANSFER * 
♦FUNCTION ICA TO* 

♦ GCOM ♦ 
***************** 



*****J3 ********** 

♦ STORE NEXT * 

♦ AND LAST ♦ 
♦AVAILABLE WORD ♦ 

♦ ADDRESSES IN ♦ 

♦ GCOM ♦ 
***************** 



****K2** ******* 

* 4 

* GSP01 RETURN * 

* * 
*************** 
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Chart AC. GCAIN - GCA Initialization 



****A1********* 
t * 

t GCAIN * 
t * 

*************** 



*****B1********** 
SGSPOl /KA* 

*_*_*_*_*_*_*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 

* * 

* COMPUTE * 

* ADDRESS OF * 

* FIRST WORD OF * 

* GCA ♦ 
***************** 



***************** 



*****E1******»*** 
♦FLOAT * 

*-*-*-*-*-*-*-*-* 

* CONVERT * 
* INTEGER TO REAL* 

* 1 * 
***************** 



GC040 X 

*****F1 ********** 
♦GSP10 * 

*-*-*-*-*-*-*-*-* 
♦STORE REAL 1 IN* 

* WORDS 5-7 AND * 

* 11-13 OF GCA * 
***************** 



*****G1 ********** 

* * 

* STORE INTEGER * 

* 1 IN WORDS * 

* 29-32 OF GCA * 

* * 
***************** 



*****H1 ********** 

* * 

* STORE * 

* 1023 IN WORDS * 

* 3-4 OF GCA * 

* * 
***************** 



*****J J********** 

* * 

* SET INPUT * 

* AND OUTPUT * 

* MODES * 

* * 
***************** 



****K 1********* 

* * 

* GSPOt RETURN * 

* * 
*************** 
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Chart AD. SSCAL - Set Scaling Values 



****A1********* 

* * 

* SSCAL * 

* * 

*************** 



*****B1********** 
*GSPOl /KA* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1********** 

* SET * 
♦FUNCTION COOES * 

* FOR GSP10 • 

* DEPENDING ON * 

* PRECISION * 
***************** 



SC009 X 

*****D1 ********** 

* SET * 
♦ARRAY INDEXING * 
♦VALUES BASED ON* 

* PRECISION * 

* * 
***************** 



* SET * 

* INDEXES FOR X * 

* PROCESS * 

* * 
***************** 



***************** 



* UPDATE * 
♦ARRAY INDEX FOR* 

* Y PROCESS * 

* * 
***************** 



* SET * 

* INDEXES FOR Y ♦ 

* PROCESS * 

* * 
***************** 



***************** 



****K 1********* 

* * 

* GSP01 RETURN * 

* * 
*************** 
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Chart AE. SSCIS - Set Scissoring Option 
SINDX - Set Index Values 
SINCR - Set Increment Values 
SGRAM - Set Output Graphic Mode 
SDATM - Set Input Data Mode 



** 



***A1********* 
SSCIS * 
*********** 



**** A3 ********* 
t * 

* S I NDX * 
t * 

*************** 



CA5****+ 
SINCR 



********* 



* SAVE FUNCTION * 

* * 
***************** 



* SAVE FUNCTION * 
***************** 



*_*_*_*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



****C2********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



*****C3** ******** 

* * 

* DETERMINE * 

* PRECISION FOR * 
♦ACCESSING INDEX* 

* VALUES * 
***************** 



fc***C5****** 

DETERMINE 

PRECISION FOR 

ACCESSING 

INCREMENT 

VALUES 

*************** 



** 



«****D1 ********** 
» * 

* STORE * 
♦SCISSOR OPTION * 

* IN GCA * 

* * 
***************** 



INDEX 
VALUES 
•POSITIVE 



****D4********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



*****D5********** 

* * 

* MOVE * 
♦INCREMENTS FROM* 

* ARRAYS TO GCA * 

* * 
***************** 



****E1 ********* 

* * 

* GSP01 RETURN * 

* * 
*************** 



*****E3 ********** 

* * 

* MOVE INDEX * 

* VALUES FROM * 

* ARRAYS TO GCA * 

* * 
***************** 



****ES* ******** 

* * 

* GSPOl RETURN * 

* * 
*************** 



****F1********* 

* * 

* SDATM * 

* * 
*************** 



****F3 ********* 

* GSPOl RETURN 

* 
*************** 



****F4********* 

* SGRAM 
* 

*************** 



* SAVE FUNCTION * 

* * 
***************** 



**** 

* * 

* HZ * 

* * 
**** 



► SAVE FUNCTION * 
* * 

***************** 



*.X IS 1-5 



****H2********* 

* * 

* GSPOl ERROR * 

* * 
*************** 



****H5********* 
* GSPOl ERROR 
*************** 



*****J i********** 

* * 

* STORE * 

* MODE FOR X IN * 

* GCA * 

* * 
***************** 



*****J4********** 

* * 

* STORE * 

* MODE ARGUMENT * 

* IN GCA * 

* * 
***************** 



*.Y IS 1-5 



*****K2*** ******* 

* * 

* STORE * 
.X* MODE FOR Y IN *. 

* GCA * 

* * 
***************** 



****K3 ********* 

* * 
■ X* GSPOl RETURN * 

* * 
*************** 



****K4********* 

* * 

* GSPOl RETURN * 

* * 
*************** 



**** 

* * 

* H2 * 

* * 
**** 
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Chart AF. GSPTM - GSP Termi nation 



****A I ********* 
H * 

► GSPTM * 

► * 
*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* SAVE * 

* FUNCTION * 

* * 
***************** 



*****C1********** 
*DSPYN /DD* 

*-*-*-*-*-*-*-*-* 

* TURN * 

* OFF ALL PFKB * 

* LIGHTS * 
***************** 



*****D1 ********** 
♦DSPYN /DO* 

*-*-*-*-*-*-*-*-* 
* RESET 2250 * 



***************** 



****E1 ********* 

* * 

* GSPOt RETURN * 

* * 
*************** 
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Chart BA. BELMT - Begin Element 



**** A 1 ********* 

► * 

► BELMT * 

► * 
*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



.♦CORRVAL AND*. NO 
*. ELEMENT TVPE .*... 
*. CODE .* 
*. VALID.* 



****C2********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



.ELEMENT TYPE*. YES 
♦FOR SUBROUTINE.*.... 
*. ENTITY .* 



**** 

* * . 

* El *.X. 

* * . 
**** 

BE050 X 

*****E1 ********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* * 
♦BUILD FUNCTION * 

* * 
***************** 



*****D2********** 

* SET ON * 

* SUBROUTINE * 
K* ENTITY *. 

* INDICATOR IN * 

* GCOM * 
***************** 



*****D3********** 
*GSP03 /KB* 

*_*_*_*_*_*_*_*_* 
«* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
•******•**•*****• 



*****E3 ********** 

* * 

* LOAD GRAPHIC * 
♦BRANCH OVERHEAD* 

* ORDERS * 

* * 
***************** 



* LOAD SPM * 
K* AND GRAPHIC * 

* BRANCH ORDER * 

* * 
***************** 



*****F3 ********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 

* STORE FUNCTION * 

* * 
***************** 



.* INDEX- 
. CONTROLLED 
*. ENTITY . 



*****H2********** 
*GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* *. 
♦STORE FUNCTION * 

♦ ♦ 
***************** 



.* LEVEL- *. YES 
*. CONTROLLED .*.... 
*. ENTITY .* 



***** J2********** 

• LOAD GBN. * 

• GSB TO GSP12 * 
>X*ORDER PROGRAM, * 

•AND SRVT ORDERS* 

• * 
***************** 



►LOAD SVRT ORDER*........ X* 



*****K2********** 
♦GSP02 /CH* 

*-*-*-*-*-*- *- *-* 



***************** 



♦ STORE FUNCTION * 

* * 
***************** 



****K3********* 

* 4 
.X* GSP01 RETURN * 

* 4 
*************** 
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Chart BB. EELMT - End Element 



****Ai********* 

* * 

* EELMT * 

********♦♦♦♦♦♦♦ 



EE030 

***** A3 ********** 

* INDICATE * 

* ECCB AS ENDED * 
..X*UPDATE ELEMENT * 
. * END INDICATOR * 

* IN ECCB * 
. ***************** 

**** 



♦-*-*-♦-*-*-♦-♦-* 

* * 

* SAVE FUNCTION * 



***************** 



♦.EXTERNAL MODE.*. 



*****E I ********** 
*GSP03 /KB* 
*-*-*-*—*-*-*-*-* 

* SEARCH * 

* FUNCTION * 
♦SPECIFIED ECCB * 
***************** 



.* ECCB 
*. FOUND AND 
*. ENDED . 



.♦ENDED ECCB *. YES 
. = SPECIFIED .*.... 
*. ECCB .* 



****D2********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



*****C3********** 

♦GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

. * SEARCH * 

* FUNCTION NEXT * 

* OUTER ECCB * 
***************** 



NO .* IS * 

...*.NEW ECCB=ICA 

*. ECCB .* 



**** 

* * 

* C4 * 

* * 
**** 



*****E3 ********** 

* * 

* SET CURRENT * 
*ECCB POINTER IN* 

* ICA TO * 

* * 
***************** 

**** 

* * 

* F3 *.X 

* * 
**** 



****P3 ********* 

* * 

* GSP01 RETURN * 

* * 
*************** 



UPDATE MODE 



* C4 *.X 



**** 
EE045 X 

*****C4********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ECCB * 
***************** 



*****g4********** 

* SET * 

* CURRENT ECCB * 
♦POINTER IN ICA ♦ 

* TO ADDRESS OF * 

* NEW ECCB * 
***************** 



EE072 

*****F4********** 
♦GSP02 /CH* 
*-*-*-*-*-*-*-*-* 
♦STORE FUNCTION *X. 

♦ OVERHEAD GNOP ♦ 

* IN 1ST WORD * 
***************** 



.* SPECIFIED *. 

•X*ECCB = CURRENT. 

♦UPDATE ECCB* 



.♦UNUSED ♦. 

■ ♦ AREA ♦ 

■ REMAINING IN 

*. ELEMENT .* 



*****D5* *******♦♦ 

♦ * 

♦ SET CURRENT ♦ 

♦ CONTROL BLOCK ♦ 

♦ POINTER TO ♦ 

♦ ♦ 
♦♦♦♦******♦♦***** 



*-*-*-*-*-*-*-*-* 

* BUILD * 

* FUNCTION FOR * 

* UNUSED AREA * 
***************** 



UNUSED 
AREA LESS 
. THAN 3 . 
*. WDS .* 



**** . 

* * . 

* Gl *.X. 



.* INDEXED *. YES 
*.OR CONTROLLED.*.... 
*. ENTITY .* 



*. IMAGE ENTITY 



.* LEVEL *. YES 
*. CONTROLLED .*.... 
*. ENTITY .* 



*****G2********** 
♦GSP02 /CH* 
*-*-*-*-*-*-*-*-* 
X* STORE *. 

* FUNCTION * 

* OVERHEAD SPM * 
***************** 



.X* 



*****H2********** 
♦GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

TRANSFER *. 

♦FUNCTION ICA TO* 
* GCOM * 

***************** 



*****G3 ♦♦♦******* 

* STORE * 

* ADDRESS OF 3RD * 
.X*WORD OF ECCB IN*... 

* GEI OVERHEAD * 

* ORDER * 
***************** 



*****H3********** 
♦GSP02 /CH* 
*-♦—*-*-*-*-*-*-* 
X* STORE *. 

* FUNCTION * 

* OVERHEAD GBI * 
***************** 



***** J2********** 

* STORE * 

* ADDRESS OF ♦ 
K* PRECEDING ♦. 

♦OVERHEAD ORDER ♦ 

* IN GB * 
***************** 



*****K2********** 
♦GSP02 /CH* 
*-*-*-*-*-*-*-*-* 
STORE * 
♦OVERHEAD BRANCH* 
• ORDER * 
***************** 



• X* 



*-*-#-*-*-*-*-♦-♦ 
.X*STORE FUNCTION *. 
♦OVERHEAD SGMV. * 
* MBA. GBN. GBN * 
***************** 



****«K3********** 

* DISCONNECT * 

♦ PROCESSING ♦ 
.♦ MESSAGE FROM 

♦SYSTEM DISPLAY 



♦****H4********** 

* STORE * 
♦ADDRESS OF HEXT* 

.X+ AVAIL WORD IN *. 

* ICA IN GB * 

* OVERHEAD * 
***************** 



*****J4+++******* 
*GSP03 /KB* 
*-*-*-*-♦-*-*-*-* 

* INITIALIZE * 

* FUNCTION * 

***************** 



*X. 



***************** 



*****K4********** 

* * 

* SET UPDATE * 
.♦POINTERS TO 0. ♦> 

* SET MODE TO * 

* NORMAL * 
***************** 



*****S5********** 
♦GSP02 /CH* 
*-*-*-*-*-*-*-♦-♦ 
♦STORE FUNCTION ♦ 
♦OVERHEAD GBI IN* 
* FIRST 2 WORDS ♦ 
♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦♦♦ 



♦ HS ♦.X 



♦ ♦♦♦ 
EE075 X 

♦♦♦♦♦HS********** 
♦GSP03 /KB* 
*-*-*-*-*-*-*-*.-;* 

* TRANSFER * 
♦FUNCTION ICA TO* 

* GCOM * 
♦♦♦♦♦♦♦♦♦♦♦♦♦**** 



♦UPDATE NEXT AND* 
♦LAST AVAIL WORD* 

♦ POINTERS IN ♦ 

♦ GCOM * 
***************** 



*****K5********** 



♦ UPDATE * 
.* CURRENT ECCB * 

♦ POINTERS IN ICA* 

♦ ♦ 
♦♦♦♦♦♦********♦** 
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Chart BC. DELMT - Delete Element 



♦ ♦** A 1 ********* 
f * 

► DELMT * 

► * 
*************** 



**** 

* * 
. X* D3 * 

* * 

**** 



-*-*-*-*-*- 



* SAVE FUNCTION * 

* * 

***************** 



.* ELEMENT 

*. LENGTH = 2 

*. WORDS 



* STORE GNOP * 
• X*IN LAST WORD IN* 

* ELEMENT * 

* * 
***************** 



.♦GENERATION 

MODE = 

♦.EXTERNAL . 



* *. NO 

CORRELATION .*... 

*. VALUE .* 
*. VALID.* 



DE005 X 

*****E I ********** 
*GSP03 /KB* 



* ELEMENT 

LENGTH = I 
*. WORD 



DE060 X 

*****D2********** 
♦STORE GBI ORDER* 
♦IN FIRST WORD. * 

* SET NOP BIT *. 
♦OFF. STORE GNOP* 

* IN LAST WO. ♦ 
**********♦♦♦♦♦** 



♦SEARCH FUNCTIONS 
♦ ♦ 

***************** 



ECCB FOUND 



**** 

* * 
. X* H2 * 

* * 
**♦♦ 



♦ • 


**** 


♦ . YES 


* 


NCLUDED ...... 


X* D5 


ELEMENT .* 


* 


• .* 


***• 


*. .* 




* NO 





*. ELEMENT ENDED.* 



****H2* ******** 
» * 

f GSPOl ERROR * 
► * 

*************** 



*****J2*****+**** 

* * 

* DECREMENT * 
.X* ELEMENT START * 

♦ADDRESS BY TWO ♦ 

* ♦ 
***************** 



* STORE GNOP * 
<* IN FIRST WORD * 

* IN ELEMENT * 

* * 
***♦♦♦*♦♦♦♦***♦♦* 

**** . 



* D3 *.X. 

* * . 
♦ *** • 

DE070 X 

♦****D3 *+♦♦♦***** 



1********4 



****E4********* 

* * 
.X* GSPOl RETURN *X. 

* * 
*************** 



DE200 X 

*****D5* *♦♦♦♦**** 

* GSP03 /KB.* 
♦-*-*-*-*-*-*-*-* 

* SEARCH * 
♦FUNCTION PRIOR * 

* ECCB * 
***************** 



ECCB FOUND 



*****P3 ********** 

* * 

* GET * 

* NEXT ECCB ON * 

* CHAIN * 

* * 
***************** 



♦UPDATE FORWARD * 

* POINTER OF * 

* PRIOR ECCB * 

* * 
***************** 



*****G5****^***4 



******** ********* 



DE095 X DEI 10 
*****J3********** 

* SET * 

* CORRVAL TO 0. * 
. . . * PUT ECCB ON * 

♦AVAILABLE CHAINS 

* * 
***************** 



* SET * 

* CORRELATION * 
♦VALUE TO /FFFF * 

* * 
**+♦****♦♦*****♦* 
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Chart BD. UELMT - Update Element 



***** 

*BD * 
* A3* 



**** A 1 ********* 
^ * 

^ UELMT * 

► * 

*************** 



*_*_*_*-*_*_*_*_* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



ACTIVE ICA 



.* VALID * 
ELEMENT 
TYPE AND 
. CORVAL 



UE 1 75 X 

*****A2** ******** 
*DELMT /BC* 
*-*-*-*-*-*-*-*-* 



***************** 



*****B2** ******** 
♦GSP03 /KB* 
*-*-*-*-*-*-*_*-* 

* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
***************** 



*****C2********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* * 

* INITIALIZE * 

* FUNCTION * 
***************** 



E200 X 

***** 02*** ******* 
♦DECREMENT DLCNT* 

* BY 1. SET * 

* ELEMENT * 

* POINTERS IN * 

* GCOM * 
***************** 



**** 

* * 

* K3 * 
► * 

**** 



UE700 X 

*****A3 ********** 

* SET * 

* COUNTER TO * 
..X* ELEMENT SIZE. * 

♦LOAD GNOP ORDER* 
. * * 

. ***************** 



*****B3 ********** 



***************** 



*****C3 ********** 

* ADJUST * 

* STORAGE * 

* POINTER. * 

* DECREMENT * 

* COUNTER BY 1 * 
***************** 



.* LAST ECCB *. YES 
ON ACTIVE .*.... 
*. CHAIN .* 



*****B4********** 

* * 

* GET * 

* NEXT ECCB ON * 

* CHAIN * 

* * 
***************** 



YES .* NEW ECCB 
X..*. FOR NESTED 
*. ELEMENT . 



*****D4********** 

* STORE * 
♦ADDRESS OF NEW * 

* ECCB IN NCBAU *. 
*IN ICA PREFACE * 

* * 
***************** 



*****A5********** 

* * 

* ZERO * 
. X* NCBAU IN ICA * 

* PREFACE * 

* * 
***************** 



****D5********* 

* * 
.X* GSP01 RETURN * 

* * 
*************** 



*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***♦♦♦♦*******♦** 



* SET INDIC IN ♦ 
<♦ ECCB TO NEW *. 

* ELEMENT TYPE * 

* * 
***************** 



**** 

* * 
• X* A3 ♦ 

* * 
♦ ♦♦♦ 



ECCB FOUND .♦. 



•ELEMENT ENDED. ♦. 



*****K1 *******♦♦* 
*DSPYN /DD* 

*-*-*-*—*-*-*-*-* 

* DISPLAY * 

* PROCESSING ♦ 

* MESSAGE ♦ 
***************** 



*-*-*-*- 



♦♦♦♦♦***********♦ 



♦STORE FUNCTION * 
* * 

***************** 



* LOAD * 

. X*GRAPHIC BRANCH *. 

* TO ELEND +1 * 

* * 
***************** 



* SET INDIC IN * 
.X* ECCB TO NEW *. 

* ELEMENT TYPE * 

* * 
***************** 



*****F5********** 

* * 

* SET INDIC IN * 

. X* ECCB TO NEW *.. 

* ELEMENT TYPE * 

* * 
***************** 



.* *. YES 

INDEXED .*.... 
*. ENTITY .* 



***** 

*BE * 

* Al* 

* * 



• X + .GSPU LOADED 



*****G4********** ♦♦♦♦♦G5* *****♦♦♦* 

♦GSP02 /CH* * * 

♦-*-*-*-♦-*-♦-♦-♦ ♦ SET INDIC IN ♦ 

...X + *..... ...X* ECCB TO NEW * 

♦STORE FUNCTION * * ELEMENT TYPE * 

* ♦ * * 
**♦♦♦♦♦♦********* ***************** 

UE400 X UE4S0 

♦♦♦♦*H4********** *****H5***+++**++ 

* ♦ +GSP02 /CH^ 

* * *-*-*-*-*-*-*-*-* 
...X*LOAD SYRT ORDER* X* * 

* * X *STORE FUNCTION * 

* * . * * 
***************** . ***************** 

♦ *** 

* * . ♦♦** 

* H5 * * * 

* * ..X* A3 * 
♦♦** * * 

**** 

*****J4********** *****J5*+* ******* 

* LOAD /FFFF * *GSP02 /CH* 

* AS INDEXED ♦ *-*-*_*_*_*-*-*_* 
. ..X+ ENTITY ♦... X+ ♦ 

* INDICATOR FOR ♦ *STORE FUNCTION * 

* GSP02 ♦ * * 
♦********♦♦♦****♦ ***************** 



* K3 *.X 
**** 



****K3 ********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



***************** 
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Chart BE. UELMT - Update Element (continued) 



***** 

*BE * 
* Al* 



UEAOO X 

*****A1 ********** 

* GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ELEMENT * 
***************** 



ECCB FOUND 



****B2********* 

* * 

* GSP01 ERROR * 
► * 

*************** 



ECCB 
FOR IMAGE 
. ENTITY . 



.* ECCB *. 

• *FOR LEVEL- *. 

,X*CONTROLLED ENTI* 



UEAIO X 

*****Dl********** 

* SET INOIC * 

* OF INNER * 

* ELEMENT FOR *X 
*LEVEL-CONTROLL * 

* ENTITY * 
***************** 



*****02********** 

* SET GRAPHIC * 

* BRANCH DUMMY • 
.* TO SAME LEVEL * 

* VERIFICATION * 

* SUBROUTINE * 
***************** 



*****E1 ********** 

* * 

* LOAD GBN TO * 

* ELEND+1 OF * 

* INNER ELEMENT * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 
* * 

♦STORE FUNCTION * 



***************** 



*****G1 ********** 

* LOAD GSB TO * 

* LEFT BRACKET * 

* VERIFICATION * 

* SUBROUTINE * 

* * 
***************** 



UEA80 X 

*****H 1 ********** 
♦GSP02 /CH* 
*-*-*-*-*-*-*-*-* 



♦STORE FUNCTION * 
* * 

***************** 



*****J 1*********4 

* * 

* * 

* LOAD SRVT * 

* * 

* * 
***************** 



*-*-*-*-*-*- 



♦STORE FUNCTION * 



***************** 
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Chart BF. XELMT - Extend Element 



**** A 1 ********* 
t * 

► XELMT * 

► * 
*************** 



XELMT X 

*****B I ********** 
♦GSPOl /KA* 

*-*-*-*-*-*-*-*-* 



* SAVE FUNCTION * 

* * 
***************** 



ACTIVE ICA .* 



* LPC * 

AND CORRVAL 
*>. VALID .* 



*****E1 ********** 
♦GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION * 
♦SPECIFIED ECCB * 
***************** 



X..*. ECCB FOUND •* 



.*. ELEMENT ENDED.* 



*****A2*** ******* 

* * 

* SET * 
♦GENERATION MODE* 

* TO UPDATE * 

* * 
***************** 



*****B2* ********* 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* TRANSFER * 
*AND INITIALIZE * 

* FUNCTION * 
***************** 



XE200 X 

*****C2********** 

* SAVE * 

* ELEMENT AND * 

* CONTROL BLOCK * 
♦POINTERS IN ICA* 

* PREFACE * 
***************** 



* UPDATE * 

* ELEMENT * 

* POINTERS IN * 

* ECCB * 

***************** 



* STORE AODRESS * 
*OF NEXT OUTSIDE* 

* ECCB IN NCBAU * 

* * 

***************** 



****K1********* 

* * 
..X* GSPOl ERROR * 

* * 

*************** 



•****G2********** 

* * 

* * 

* SAVE IMECB * 

* * 

* * 
***************** 



*****H2********** 
♦DSPYN /DD* 
*-*-*-*-*-*-*-*-* 

* DISPLAY * 
♦PROCESS MESSAGE* 

* * 
***************** 



XE775 X 

*****J2********** 
♦GSP05 /BN* 
*-*-*-*-*-*-*-*-* 

• * 
♦PUSH UP ORDERS * 

* * 
***************** 



*****K2********** 

* * 

* * 

* RESTORE IMECB *. 

* * 

* * 
***************** 



****K3********* 

* 4 
. X* GSPOl RETURN 4 

* * 
*************** 
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Chart BG. IELMT - Include Element 



****A I ********* 

► * 

► IELMT * 

► * 
*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



♦.CORRVAL VALID.*. 



****D2********* 

* * 

* GSP01 ERROR * 

k * 

*************** 



*****£ 1 ********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* * 

* BUILD FUNCTION * 

* * 
***************** 



*****F1 ********** 

* SET * 

* ELEMENT START * 
*AND END ADDRESS* 

* INDICATORS IN * 

* ECCB * 
***************** 



*****G1 ********** 

* SET * 

* ON ENDED * 

* ELEMENT * 

* INDICATOR BIT * 

* IN ECCB * 
***************** 



****H1 ********* 

* * 

* GSPOl RETURN * 

* * 
*************** 
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Chart BH. BXGEN - Begin External Generation 



****A1 ********* 

* 4 
X BXGEN * 

* * 
*************** 



*****B1 ********** 
*GSP0 1 /KA* 

*— *-. *- *-*-*-*-*-♦ 

* * 

* SAVE FUNCTION * 

* * 
***************** 



.* LENGTH 
ARGUMENT 
♦.POSITIVE 



****C2********* 
► * 

X GSP01 ERROR * 
» * 

*************** 



*. ACTIVE ICA 



*****F1 ********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
***************** 



BX020 X 

*****G1********** 
♦SAVE AVAILABLE * 

* AREA POINTERS * 
*SET AREA LIMITS* 

* TO GENERATION * 

* LENGTH * 
***************** 



*****H1 ********** 

* SET EXTERNAL * 
♦GENERATION AND * 
♦NON-GENERATION * 

* COUNTERS TO * 

* ZERO * 
***************** 



*****j 1********** 

* STORE * 
♦ADDRESS OF GEN.* 

* AND NON-GEN * 

* COUNTERS IN * 

* GCOM * 
***************** 



*****K 1********** 
♦GSP03 /KB* 

*-*-*-*-*-*-*-*_* 



*****G2********** 

♦ SET * 

♦ GENERATION ♦ 

♦ INDICATOR FOR ♦ 

♦ EXTERNAL * 

♦ GENERATION ♦ 
***************** 



*****H2********** 

* * 

* SET * 
*MDLST AND OPMD * 

* TO ZERO ♦ 

* * 
***************** 



****J2********* 

* * 

* GSPOl RETURN * 

* * 
*************** 



♦ INITIALIZE 

♦ FUNCTION ♦ 

***************** 



*....X* G2 * 
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Chart BJ. EXGEN - End External Generation 



♦ ***A 1 ********* 
► * 

t EXGEN * 

k 4 

*************** 



*****B1 ********** 
♦GSPOl /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



****C2********* 

* * 

* GSPOl ERROR 4 
¥ * 

*************** 



ACTIVE ICA 



*****E1 ********** 

* * 

* RESTORE * 

* AVAILABLE AREA * 

* POINTERS * 

* * 
***************** 



*****F1 ********** 
*GSP03 /KB* 

*-*-*—*-*-*-*-*-* 

* TRANSFER * 
♦FUNCTION ICA TO* 

* GCOM * 
***************** 



EX020 X 

*****G1 ********** 

* SET EXTERNAL * 
♦GENERATION AND * 
♦NON-GENERATION ♦ 

* COUNTERS TO * 

* ZERO * 
***************** 



****+H !♦♦♦******* 

* SET * 
♦GENERATION MODE* 
♦TO NORMAL. SET * 
*MOLST ANO OPMD * 

* TO ZERO ♦ 
***************** 



♦ ***J 1********* 

* 4 

* GSPOl RETURN 4 

* * 
*************** 
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Chart BK. SATRB - Set Controlled Entity Attributes 



*♦♦♦ A 1 ********* 
» * 

» SATRB * 

* * 

*************** 



♦.DETECT ARG=0 



**** 

* 4 
•X* D3 * 

* * 
**** 



*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*.CORRVAL VALID.*.. 



*****D1 ********** 
*GSP03 /KB* 

*-*-*.—*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



ECCB FOUND 



*. ECCB ENDED 



.INDEX CONTROL. 

LEVEL- 

♦CONTRDLLED.* 

♦ENTITY.* 



» DISPLAY 

AND DETECT 

». ARGS. . 

*. VALID.* 



*****C2********** 



***************** 



***************** 



* STORE ORDER * 
.X* IN FIRST WORD * 

* OF ENTITY * 

* * 
***************** 

**** 

* * 

* D3 *.X 

* * 

**** 

****D3 ********* 

* * 

* GSP0 1 RETURN * 

* * 
*************** 



****H2********* 
» * 

* GSP01 ERROR * 
» * 

*************** 



♦.DISPLAY ARG=0.*........X*. DISPLAY ARG 



*****J3 ********** 

* * 

* * 
. X*LOAD GBI ORDER * 

* * 

* * 
***************** 



***************** 



* STORE IN * 

. X*SECOND WORD OF *. 

* ENTITY * 

* * 
***************** 
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Chart BL. STPVS - Step Verification Setting 



****A1 ********* 

< * 
► STPVS * 

< * 
*************** 



*****B I ********** 
*GSP01 /KA* 

*.-*-*-*-*-*-*—*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



♦.GSP12 LOADED 



****C2*** ****** 

* * 

* GSP01 ERROR 4 

* 4 
*************** 



*****D I ********** 

* * 
♦SUBTRACT 1 FROM* 
*VERLN AND SAVE * 
♦RESULT IN WORK * 

* 1 * 
***************** 



*****E2* ********* 



.* X*DECREMENT VERLN*. 



*****E4********** 

* * 

* * 
•X*SET VERLN TO 1 * . 



***************** 



***************** 



**** 

* * 

* K4 * 

* * 

**** 



*****F2********** 

* * 

* * 
.X*SET VERLN TO 1 * 

* * 

* * 
***************** 



***************** 



X VERIFY 
*****G2********** 

* DETERMINE * 
♦ADDRESS OF OLD * 

K* AND NEW ♦ 

* VERIFICATION ♦ 

* SUBROUTINES * 
***************** 



DETECT 

*****G3 ********** 

* DETERMINE * 
♦ADDRESS OF OLD ♦ 

..X*AND NEW DETECT ♦ 

* SUBROUTINES ♦ 

* ♦ 
*********♦♦♦♦♦♦♦* 



NO- DETECT 
*****G4********** 

* DETERMINE ♦ 
♦ADDRESS OF OLD * 

<* AND NEW * 

* NO-DETECT * 

* SUBROUTINES * 
***************** 



♦♦♦♦♦H2^+******** 

* * 

* SET SPM * 
*/9 AND GBC I IN* 

* ORDERS * 

* * 
***************** 



*****H3 ********** 

* * 

* SET SPM /A * 

* AND SPM /A IN * 

* ORDERS * 

* ♦ 
***************** 



*****H4********** 

* * 

* SET ♦ 

* TWO SPM /4 * 

* ORDERS * 

* * 
***************** 



*+***J 1********** 

* * 

* * 
*SET VERLN TO 5 * 

* * 

* * 
***************** 



ST600 X 

*****J2* ********* 
♦COMMON CODE ♦ 
*-*—*—*—*—*—*-*—* 

♦ STORE NEW ♦. 

♦ ORDERS IN ♦ 

♦ SUBROUTINES ♦ 
***************** 



.ST600 X 

*****J3 ********** 
♦COMMON CODE ♦ 
♦-♦—♦—♦—*-*-*-*-* 

* STORE NEW *. 

* ORDERS IN * 

* SUBROUTINES * 
***************** 



.ST600 X 

*****J4********** 
♦COMMON CODE * 
*-*-*-*-*-*-*-♦-* 

* STORE NEW * 

* ORDERS IN * 

* SUBROUTINES * 
***************** 

**** 



**** 

* * 

* K4 * 

* * 
♦ ♦♦* 



*♦*♦ 

X 

****K 4*** ****** 
C 4 

K GSP01 RETURN 4 
* 4 

*************** 
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Chart BM. GSP04 - Push Down 



****A1 ********* 
K * 

* GSP04 * 

K * 

*************** 



***************** 



G4010 

*****B2********** 

*SET POINTER TO * 

*NEXT AVAILABLE * 

. ..X* WORD. LOAD * 

* ENDCB IN GCOM * 

* WITH EAVA+1 * 
***************** 



LAST ECCB .* 



**** 
* 

* A2 •■ 
* 

**** 



*****C1 ********** 
*SET POINTER TO * 
*NEXT AVAILABLE * 
♦GENERATION AREA* 

* SET ENDCB TO * 

* LAGAP+1 * 
***************** 



*****E1 ********** 
*DSPYN /DO* 

*-*-*-*-*-*-*-*-* 

* DISPLAY * 

* PROCESSING * 

* MESSAGE * 
***************** 



* RESTORE * 

* IMECB. SET * 

* SWITCH TO 1 * 

* * 
***************** 

**** . 

* * . 

* Gt *.X. 



****C3 ********* 

1 

GSP01 ERROR * 

4 

*************** 



.♦GENERATION *. YES * SET NEXT * 

>. MODE=UPDATE .* X*AVAILABLE WORD * 

*. .* * TO POINTER * 

* . . * * * 

*. .* ***************** 



*****E2** ******** 

* SET NEXT * 

* AVAILABLE * 
♦GENERATION AREA* 

* POINTER TO * 

* POINTER * 
***************** 

**** 

* * 

* F2 *.X 

* * 
**** 

****F2****^**** 

* 4 

* RETURN * 

* * 
*************** 



**** 


X 






G4040 




• *. 






Gl 




*. 




.* 






* 


.* 










*. 


OLCNT 


= 






• ..X* A2 * 



G4110 

*****A4********** 

* INITIALIZE * 

* "FROM" AND ♦ 
. ..X* "TO" MOVE * 

* POINTERS, * 
♦DETERMINE COUNTS 
***************** 



.* IMAGE *. 
.* OR *. YES 
♦. SUBROUTINE ...... 

*. ENTITY •♦ 



♦♦♦♦*B5* ♦♦♦♦♦♦♦♦♦ 

* * 

* DECREMENT * 
X*"TO" POINTER * 

♦BY 2. INCREMENTS 

* COUNT BY 2 * 
*♦♦♦♦♦♦♦♦♦*♦*♦♦** 



*****C 5* **♦♦♦♦♦♦♦ 

* * 

* UPDATE * 
X* POINTERS IN * 

* GCOM * 

* ♦ 
***************** 



G4130 XLOOP 

*****D4********** 

* MOVE * 

* ORDERS USING * 

* "FROM" AND ♦ 

* "TO" LIMITS * 

* ♦ 
***************** 



* GET NEXT ECCB * 



***************** 



DELETE 

ELEMENT 

NESTED 



*****F 5*** ******* 

* * 

* UPDATE * 
iX*ELEND OF OUTER * 

* ECCB * 

* * 
***************** 



* UPDATE EL END ♦ 

* AND ELSTA IN * 
♦FOLLOWING ECCBS* 

* ♦ 
***************** 



SWITCH = 1 



**** 
.NO * * 
.*....X* D2 * 
* * 
**** 



*****J l********** 

* SET * 
♦SWITCH TO ZERO.* 
*GB NOP LINK TO * 
♦SYSTEM DISPLAY * 

* * 
***************** 



* TAKE DELETE * 
*ECCB OFF ACTIVE* 

* ECCB CHAIN * 

* ♦ 
***************** 



G4188 X 

*****J4********** 

* PUT ECCB * 

* ON AVAILABLE * 
♦CHAIN DECREMENT* 

* DLCNT BY ONE * 

* * 
***************** 
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Chart BN. GSP05 - Push Up 



****A1 ********* 
K * 

» GSP05 * 
f 4 

*************** 



DELETE *. 
ELEMENT . 
FOLLOWS .* 



*****B3 ********** 

*SET LAGAP WITH * 

*END ADDRESS OF * 

.X*DELETE ECCB FOR* 

* STORING GNOP * 

* ORDERS * 
***************** 



* MOVE WORD * 
. .X* FROM LOWER TO * 

* UPPER LIMIT * 

* * 
***************** 



**** 

* 4 

* CI * 



.* AREA * 

*. AVAILABLE IN 

*. ICA .* 



*****C2********** 
♦GSP04 /BM* 

*-*-*-*-*-*-*-*-* 
* PUSH DOWN * 



***************** 



.* ECCB *. 
.♦FOR DELETE *. NO 
.ELEMENT LAST .*... 
*.ON CHAIN •* 



G5170 

*****C4**** ****** 

* INSERT ECCB * 

* FOR DELETE * 
. ..X* ELEMENT IN * 

♦AVAILABLE ECCB * 

* CHAIN * 
***************** 



*****C5********** 



***************** 



****D1 ********* 
* * 

¥ GSPOl ERROR * 
» * 

*************** 



*****D3 ********** 

* * 

* ADD AREA OF * 

* ECCB TO * 
♦AVAILABLE AREA * 

* * 
♦♦♦♦♦♦♦♦********♦ 



* DECREMENT * 
♦DELETE COUNT BY*X. 

* ONE * 

* * 
***************** 



G5140 

*****E4********** 

* UPDATE * 

* GB ORDERS IN * 

. ...» IMAGE AND *> 

* SUBROUTINE ♦ 

* ENTITIES * 
***************** 



G5125 X 

*****E5*****+**+* 
♦ SET LAGAP TO * 
♦REFLECT NEW END^ 
....♦ OF AREA USED ♦ 
♦UPDATE ELEMENT ♦ 
♦LIMITS IN ECCB * 
♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦ 



♦♦♦♦*F1 ********** 

* SET * 

* INTERNAL * 

* COUNTER (ICNTRM 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ STORE * 
♦GNOP ORDERS IN ♦ 

♦ NEW AREA ♦ 

♦ ♦ 
***************** 



.* AREA *. 
* AVAILABLE *. 
SUFFICIENT 



*****G2********** 

* SET UPPER * 

* MOVE LIMIT TO * 
X* START OF * 

♦AVAILABLE AREA ♦ 

* PLUS ICNTR-1 * 
***************** 



****G3** ******* 
t 4 

► GSPOl RETURN 4 
t 4 

******♦*♦♦♦♦*** 



G5130 X 

*****H1 ********** 

* SET UPPER * 

* MOVE LIMIT TO * 

* END OF * 

* AVAILABLE AREA ♦ 

* (EAVA) ♦ 
♦♦♦♦♦************ 



G5110 X 

*****J !**♦♦****** 

* SET * 

* LOWER MOVE * 
♦LIMIT TO START ♦ 

* OF AVAILABLE ♦ 

* AREA * 
**♦**♦♦♦********* 
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Chart CA. MVPOS - Move Element to a Position 



****A1********* 
H * 

► MVPOS * 

► * 
*************** 



*****B1********** 
♦GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****Cl********** 

* * 

* * 
*SET ICNTR TO 1 * 

* * 

* * 
***************** 



YES .* IS *. 
...*. CORRVAL .* 
*. NEGATIVE .* 



**** 

* * 

* B4 * 

* * 
**** 



MP020 

*****A2*** ******* 

♦ GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

♦SEARCH FUNCTION* 

* * 
***************** 



* *. YES .* ECCB 

ECCB FOUND .* X*. FOR ORIGIN 

f. .* *. ENTITY 



.* GRAPHIC *. NO 
. MODE ORDER .*... 
*. NEEDED .* 



*****G1 ********** 



♦LOAD SGMV ORDER* 



***************** 



***** HI ********** 
*GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 
*STORE FUNCTION * 

* * 
***************** 



MP005 X 

*****J1********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



**** 

* * 

* B4 * 

* * 
**** 



****B4** ******* 

* < 

* GSP01 ERROR * 
If * 

*************** 



*****C2*** ******* 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* * 
*BUILD FUNCTION * 

* * 
***************** 



*****D2********** 

* SET * 

* OUTPUT MODE * 
♦INDICATORS TO 0* 
*LOAD SGMV ORDER* 

* * 
***************** 



*-*-*-*-*-*-*-*-* 
* * 

♦STORE FUNCTION * 



***************** 



*****F2*** ******* 

* GSP02 /CH* 
*_*-*-*-*-*-*-*-* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



*****G2********** 

* * 

* STORE ENTITY * 

* END ADDRESS. * 

* SET EELMT BIT * 

* ON * 
***************** 



.* ♦. .*OUTPUT *. 

► ENTITY *. YES .* MODE * 

THREE WORDS .* X*. INCREMENTAL 

». LONG .* *. .* 



MP031 X 

*****D3 ********** 
*UELMT /BD* 

*-*-*-*-*-*-*-*-* 



***************** 



*****E3* ********* 

* * 

* * 
*LOAD SGMV ORDER* 

* * 

* * 
***************** 



*****F3* ********* 
*GSP02 /CH* 

*_*_*_*-*_*_*_*_* 

* * 
♦STORE FUNCTION * 

* * 
***************** 



*****G3 ********** 
*GSP02 /CH* 

*-*-*-*_*-*_*_*_* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



*****H3 ********** 
♦EELMT /BB* 
*-*-*-*-*-*-*-*-* 

* END * 
♦UPDATE FUNCTIONS 

* * 
***************** 



*****J3 ********** 

* INDICATE * 
*ECCB AS ORIGIN * 

* ENTITY * 

***************** 



*-*-*-*-*-*-*-*-* 
X* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
***************** 



*****D5********** 

* SET * 

* ENTITY TO * 
♦RECEIVE UPDATE * 

* OF MBA ORDERS * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



*****F5********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION * 

* * 
***************** 



****K 1********* 

* * 

* GSP0 1 RETURN * 

* * 
*************** 
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Chart CB. PLINE/PPNT/PSGMT - Plot Lines, Points, Segments 



«***A1********* 
* 
PLINE * 

* 

*************** 



****A2********* 

* 4 

* PPNT * 
► * 

*************** 



****A3 ********* 
•> * 

► PS GMT * 

► * 
*************** 



*****B I ********** 
♦GSP01 /KA* 

*--*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****B2*** ******* 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****B3********** 
*GSPOI /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



***** CI ********** 

* SET XR2 * 

* TO REFLECT * 

* PLINE FOR * 

* GRAPHIC MODE * 

* ORDERS * 
***************** 



*****C2*** ******* 

* SET * 
*XR2 TO REFLECT * 

* PPNT FOR * 

* GRAPHIC MODE * 

* ORDERS * 
***************** 



*****C3* ********* 

* SET XR2 * 

* TO REFLECT * 

* PSGMT FOR * 

* GRAPHIC MODE * 

* ORDERS * 
***************** 



*****02** ******** 

* SET DC * 

* IN LIBF GSP02 * 

* TO REFLECT * 

* CALLING * 

* SUBROUTINE * 
***************** 



* STORE COUNT * 

* IN INTERNAL * 

* COUNTER * 

* * 
***************** 



****F3 ********* 
t * 

* GSP01 ERROR * 

* * 
*************** 



k GRAPHIC *. YES 

MODE ORDER .*.... 
K. NEEDED .* 



*****G3 ********** 

* SET * 
♦POINT OR VECTOR* 

■X*MODE LOAD SGMV * 

* OR SGMP ORDER * 

* * 
***************** 



PV300 X 

*****H2*** ******* 
*GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



*****H3 ********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 
.* * 

♦STORE FUNCTION * 
* * 

***************** 



**** J2* ******** 

* 4 

* GSP01 RETURN * 

* A 
*************** 
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Chart CC. PTEXT - Plot Text 



**** A 1 ********* 
I" 4 

► PTEXT t 

» 4 

*************** 



*****B1********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****D1 ********** 



***************** 



• *MODE ORDER *. (\ 
*.ANO TEXT CODE.*. 
*. VALID .* 



GCHAR 
OR GUPER 
. LOADED 



****F2*** ****** 

* 4 

* GSP01 ERROR * 
f * 

*************** 



*****G1 ********** 

* * 

* LOAD * 
♦CHARACTER MODE * 

* ORDER * 

* * 
***************** 



*****H1 ********** 
*GSP02 /CH* 
*-*_*_*_*_*_*_*_* 

* * 
♦STORE FUNCTION * 

* * 
***************** 



TX010 X 

*****J 1********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 

* TEXT FUNCTION * 

* * 
***************** 



*****K 1 ********** 

* * 

* LOAD * 

* GNOP OVERHEAD *. 

* ORDER * 

* * 
***************** 



*****K2********** 
*GSP02 /CH* 

*—*—*—*—*—*-*—*—* 

♦STORE FUNCTION * 
* * 

***************** 



♦♦♦♦K3 ********* 

* * 
. X* GSPOl RETURN * 

* * 
*************** 
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Chart CD. LKSUB - Linkage to a Subroutine 



****A1********* 
N * 

* LKSUB * 
¥ * 

*************** 



LSI 30 COMMON 

***** A3* ********* 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



LS210 X NAMED 
*****A4**** ****** 
♦GSP03 /KB* 

*—*-*-*-*-*-*-*-* 

* * 
♦BUILD FUNCTION * 

* * 
***************** 



*****B1 ********** 
♦GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



LS200 X 

*****B2********** 

* GSP03 /KB* 
*-*—*—*-*-*-*—*—* 

* SEARCH * 

* FUNCTION * 
♦LINKAGE ENTITY * 
***************** 



♦.SUBR CORRVAL •♦. 



.* SUBR 

CORRVAL 
♦.NEGATIVE 



*. ECCB FOUND 



***** 
*CE * 
♦ Al* 



.♦ SUBR. *. 
•* TRACK, *. h 
.IELMT, STROKE. ♦. 
*. ENTITY .* 



*. SWITCH 



*****C5********** 



****♦♦♦♦♦♦*♦*♦♦** 



♦♦♦♦♦02********** 



*****♦♦♦♦♦♦♦***** 



*****03* ********* 

* PUT * 

* START ADDRE5S * 

* OF SUBROUTINE * 

* IN GB ADDRESS * 

* ♦ 
**********♦♦♦♦*** 



*****D4********** 

* ♦ 

* * 

* LOAD GB ORDER ♦ 

* * 

* * 
*♦***********♦*♦♦ 



.♦LINKAGE*. 
.♦ ENTITY *. YES. 
CORRVAL .♦.. 
♦.NEGATIVE .♦ 



♦ .NO 
CHARACTER .*... 

MODE .♦ 



LS220 X 

*****E4********** 
+ GSP02 /CH* 

♦-♦-*-♦-*-*-*-*-* 

* * 
♦STORE FUNCTION * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦*♦ 

♦ ♦ 

♦ F5 * 

♦ ♦ 

♦ ♦*♦ 



NO .* LINKAGE 
...... ENTITY 

♦.CORRVAL = 



♦ ♦** 

♦ ♦ 

♦ B2 * 

♦ * 

♦ ♦** 



♦♦♦♦*F2********** 
♦CD/A3 * 

*-*-*-*-*-*-*-*-* 
♦COMMON CODEING ♦ 

♦ FOR NAMED AND ♦ 

♦ UNNAMED * 
♦♦♦♦♦**********♦♦ 

. ♦♦♦♦ 



*****F3 ********** 

* * 

* * 
♦LOAO GNOP ORDER* 

* * 

* * 
***************** 



*****f= H********** 

* COMPUTE END ♦ 

* ADDRESS AND * 
♦STORE IN ECCB. * 

* SET ON EELMT * 

* BIT * 
***********♦♦♦♦♦♦ 



*****F5********** 

* * 

* ♦ 

* LOAD GB ORDER * 

* * 

* * 
**********♦*♦♦♦♦♦ 



SWITCH = 1 



*****63 ********** 
*GSP02 /CH* 

*-*-*-♦-♦-+-♦-*-♦ 
♦ * 

♦STORE FUNCTION * 

***************** 



****G4********* 

♦ * 

♦ GSPOl RETURN * 

♦ 4 
*************** 



*****G5********** 
♦GSP02 /CH* 

♦-♦-*-*-♦-♦-♦-♦-♦ 

'♦STORE FUNCTION * 
♦ ♦ 

***************** 



****H2********* 
» * 

* GSPOl ERROR * 

* * 
*****♦♦♦******* 



* ZERO GRAPHIC * 

* AND CHARACTER * 
*MODE INDICATORS* 

* * 
***************** 



*****J 1********** 
♦CD/A3 * 

*-*-*-*-*-*-*-*-* 

* COMMON CODING * 

* FOR NAMED AND * 

* UNNAMED ♦ 
***************** 



**** 

* 4 
• X* A4 4 

* 4 
**** 



****K3 ********* 
» 4 

* RETURN 4 

» 4 

*************** 
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Chart CE. LKSUB - Linkage to a Subroutine (continued) 



***** 

*CE * 
* Al* 

* * 



.*. UPDATE 



*.SUBR CORRVAL 



. YES * LOAD * 
.* X*ADDRESS IN OLD * 

* GB ORDER * 

* * 
***************** 



*****BI********** 
*GSP03 /KB* 

*-*-*-♦-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



**** 


. 






* * 








* Dl *. 


X. 






* * 








**** 


X 






LS306 


• *. 






Dl 


*. 






.* 


*. 






.* 


* 


. YES 




*. ECCB 


DELETE 


.*.... 


X 



.* SUBR. *. 
.* TRACK, *. NO 

*.IELMT, STROKE.* X* 

*. ENTITY .* 



****E2********* 
* 
GSP01 ERROR * 
K 4 

*************** 



*****F1 ********** 

* PUT * 

* SUBROUTINE * 

* ADDRESS IN GB * 

* ORDER * 

* * 
***************** 



*****m ********** 

* * 

* * 

* LOAD GB ORDER * 

* * 

* * 
***************** 



LS310 X 

*****J 1********** 

* STORE ORDER, * 
♦LOAD ADDRESS OF* 
♦ORDER AND STORE* 

* IN END OF * 
♦LINKAGE ENTITY * 
***************** 



****K 1********* 

* * 

* GSP01 RETURN * 

* * 
*************** 



***************** 
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Chart CF. PGRID - Plot Grid Outline 



**** A 1 ********* 
H * 

► PGRID * 
* * 

*************** 



*****B1 ***♦♦***** 
*GSPOI /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 

* * 

* COMPUTE * 

* GCA START * 

* ADDRESS * 

* * 
***************** 



*****D1 ********** 

* * 

* SET X- INPUT * 
♦MODE INO IN GCA* 
*TO INTEGER ABS * 

* * 
***************** 



VECTOR MODE 



*****F1********** 

* * 

* SET VECTOR * 

* MODE IN GCA * 
♦OUTPUT MODE IND* 

* ♦ 
***************** 



*****G !*♦******** 
*GSP02 /CH* 

*—*—*—*—*—*—*-*-* 

* STORE * 

* SGMV ORDER * 

* * 
***************** 



IE100 X 

*****H1********** 
*GSP02 /CH* 

*-*-♦-♦-♦-♦-♦-*-♦ 

* * 

* GENERATE GRID * 

* VECTORS * 
*****♦♦♦♦♦♦♦♦♦♦** 



♦♦♦♦♦J 1*+******** 

* * 

* RESTORE * 

* X-INPUT MODE ♦ 

* INDICATOR IN ♦ 

* GCA * 
***************** 



♦♦♦*K !********♦ 

♦ * 

♦ GSP0 1 RETURN * 

♦ ♦ 
*************** 
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Chart CG. PCOPY - Plot Copy of an Element 



**** 
* * 

* A2 * 

* * 
**** 



**** 
K * 

► A3 * 
ft * 

**** 



****A I ********* 

* * 

* PCOPY * 

* * 
*************** 



*****B1 ********* 
*GSP01 /KA 

*-*—*—*—*-*-*—*- 

* SAVE FUNCTION 
**************** 



•CORVAL VALID .*.. 



*****A2********** 

* * 

* SET FROM * 

* POINTER TO * 

* ELSTA * 

* * 
***************** 



* SET STORE * 

* POINTER TO * 

* NAGAP * 
» * 
ft**************** 



**** 

:o3o x 

*****C2********** 

* * 

* GET GRAPHIC * 

* ORDER USING * 

* FROM POINTER * 

* * 
***************** 



* ADDRESS 

IN DELETE 
*. ELEMENT . 



* SET FROM * 

* POINTER TO * 

* ADDRESS +1 * 

* * 
***************** 



PC090 

*****A4********** 
*GSP03 /KB* 

*-*-*-*-♦-*-*_*-* 



♦SEARCH FUNCTION* 
* * 

***************** 



PC095 X 

*****C4*********=I 

* SET FROM 1 

* POINTER TO i 

* ADDRESS IN t 

* ELEMENT i 

* * 
***************** 



*****B5********** 



***************** 



**** 

*****C5********** 

* SET FROM * 

* POINTER TO * 
•*ELEND +1 OF NEW* 

* ELEMENT * 

* * 
***************** 



♦SEARCH FUNCTION* 

* * 

***************** 



ECCB FOUND •*. 



**** 

* * 

* K5 * 

* * 
**** 



♦ .ELEMENT ENDED.* .... X* K5 * 



********* 



GRAPHIC 
BRANCH 
.INDIRECT 



*—*—*—*—*-*-*-*-* 
<* *. 

♦SEARCH FUNCTION* 
* * 

***************** 



♦INCREMENT FROM * 
•X* POINTER. GET * 

* ORDER AT GBI * 

♦ ADDRESS ♦ 
***************** 



•♦SUBROUTINE ♦. 

TRACK, OR 

♦.INCLUDED .♦ 

♦ ELEMENT* 



*****E5********** 

* SET FROM * 

* POINTER TO * 

* ELSTA OF NEW * 

* ELEMENT * 

* * 
***************** 



* *. 


**** 


GRAPHIC *. YES 


* 


BRANCH .*... 


X* G4 


INDIRECT .♦ 


* 


♦ .. NOP .* 


**♦♦ 





**♦♦ X 




PC035 .♦. 




F5 *. 


♦ *** 


.* * 


* 


NO .* END 


C2 *X 


...*. OF ELEMENT 



.IMAGE ENTITY 



♦♦♦**J !♦****♦♦*** 

* * 

* SET END * 

* POINTER TO ♦ 

* EL END +1 * 

* * 
***************** 



*****G2***^***** 

* ♦ 

* SET END * 
X* POINTER TO *. 

* ELEND -8 * 

* * 
***************** 



**** 

* * 

* A2 * 

* ♦ 
**** 



****G4*++******* 



************ 



*****H2********** 

* ♦ 

* SET END * 
X* POINTER TO * 

* ELEND -2 * 

* ♦ 
***************** 



GNOP 
*. .* 



.NO X * STORE ORDER * 

.*........X*INCREMENT STORE* 

* POINTER * 

* * 
***************** 



* SET NAGAP * 

* TO STORE * 

* POINTER * 

* * 
*******♦♦♦♦♦♦♦*** 



****H5********* 

* * 

* GSP01 RETURN * 

* * 
*************** 



***************** 



**** 

* * 

* F5 * 

* * 
**** 



****K5********* 

.....X* GSP01 ERROR * 
X * * 

*************** 

**** 

* * 

* K5 * 

* * 
*♦♦♦ 
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Chart CH. GSP02 - Generation Support 



****Al********* 
K * 

► GSP02 * 

C * 

*************** 



G2100 XYGEN 

*****A2********** 

* SET CALLING * 
♦ROUTINE SOURCE.* 

..X* FIRST TIME * 

* SWITCH, INT. * 

* COUNTER=l * 
***************** 



***** 
*CH * 
* B3* 



* SAVE * 
♦INDEX REGISTERS* 

* 2 AND 3 * 

* * 
***************** 



* B2 *.X. 

* * 
**** 

.G2105 XX-START 
*****B2** ******** 

* * 

* INITIALIZE * 

* X- START AND ♦ 

* INCREMENT * 

* INDICATORS * 
***************** 



G2340 XX-END 

*****B3 ********** 

* INITIALIZE ♦ 

* X-END AND * 

* INCREMENT * 

* INDICATORS * 

* * 
***************** 



G2205 XY-END 

*****Q5********** 

* INITIALIZE ♦ 

* Y-END AND ♦ 

* INCREMENT ♦ 

* INDICATORS ♦ 

* * 
***************** 



*****C2********** 

* LOAD X-START * 

* INDEX AND ♦ 

* INCREMENT * 

* VALUES. AND * 
*X-ARRAY ADDRESS* 
***************** 



*****C3* ********* 



***************** 



* INITIALIZE ♦ 

* Y-START AND ♦ 

* INCREMENT ♦ 

* INDICATORS ♦ 
***************** 



*****C5********** 



***************** 



***** 
*CM * 
* A 1* 



*****D2** ******** 

* * 

* LOAD * 

* OUTPUT MODE * 

* FROM GCA ♦ 

* * 
***************** 



*****D3 ********** 

* * 

* LOAD X-END ♦ 

* INDEX AND * 

* INCREMENT ♦ 

* VALUES * 
***************** 



*****D4********** 

* LOAD Y-START * 

* INDEX AND * 

* INCREMENT ♦ 

* VALUES. AND ♦ 
*Y-ARRAY ADDRESS^ 
***************** 



*****D5********** 

* * 

* LOAD Y-END * 

* INDEX AND ♦ 

* INCREMENT * 

* VALUES ♦ 
♦♦♦*************♦ 



***** 
*CL * 
* Al* 



*****E2*** ******* 

* * 

* LOAD ♦ 

* X- INPUT MODE * 

* FROM GCA * 

* * 
***************** 



*****E4**** ****** 

* * 

* LOAD ♦ 

* Y- INPUT MODE ♦ 

* FROM GCA * 

* * 
***************** 



**** 

* 4 

* F5 * 

* * 
**** 



***** 
*CN ♦ 
* Al* 



.♦CALLING*. 
¥ ROUTINE ♦. N 
LCPOS/TRACK .♦. 



* SAVE ♦ 
<* INCREMENTAL ♦. 

* VALUE ♦ 

* * 
***************** 



G218S X 

*****F 5*** ******* 

♦ SCALE ♦ 

♦ SAVED VALUE ♦ 

♦ USING X-SCALE ♦ 

♦ FACTORS INGCA ♦ 

♦ ♦ 
***************** 



G2015 

X 
****G 1 ********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



♦ COMPUTE THE ♦ 
♦INCREMENT VALUED 

♦ AND SAVE ♦ 

♦ * 
*************♦♦♦♦ 



G219S 

*****G3 ********** 

* SCALE ♦ 

* SAVED VALUE ♦ 
..X* USING Y-SCALE ♦ 
. *FACTORS IN GCA * 

* ♦ 
. ***************** 



***+*G4********** G5 ♦. 

* * .♦ ♦. 

* ADD LAST ♦ YES .* INCREMENT ♦. 

* COMPUTED X TO ♦>: ♦.INDICATOR = 1. 

* SCALED VALUE ♦ ♦. •♦ 

* * *. .* 
***************** *. .* 



* STORE VALUE ♦ 

* IN CURRENT ♦ 

* COMPUTE X IN ♦ 

* GCOM + 
***************** 



.♦CALLING*. 
D .* ROUTINE = ♦. 
.♦. LCPOS/TRACK .* 



***************** 



*****J3 ********** 

* ♦ 

* ADD LAST ♦ 

* COMPUTED Y TO ♦ 

* SCALED VALUE ♦ 

* ♦ 
***************** 



NO .♦ X-START 
...♦. OR END 

*. INDICATOR. 



G2200 X 

*****K3 *♦♦♦♦***** 

♦ STORE ♦ 

♦ VALUE IN ♦ 

♦ CURRENT ♦. 

♦ COMPUTED Y IN * 

♦ GCOM ♦ 
♦♦♦♦♦♦♦♦♦♦******♦ 



***** 

♦ CJ ♦ 

♦ Al* 



110 



Chart CJ. GSP02 - Generation Support (continued) 



CALLING 
ROUTINE = 
. IDPOS 



.♦CALLING*. 
* ROUTINE = 
LCPOS/TRAK 



**** 

* * 
. X* Kl * 

* * 
**** 



.♦CURRENT*. 
.* COMPUTED * 
. X,Y OUTSIDE 
*. SCREEN .» 



**** 

* * 
. X* D2 * 

* * 
**** 



G2224 

*****C3 ********** 

*GSP06 /CO* 

*-*_*-*-*-*_*_*_* 

...X* SCISSOR *. 

* TO SCREEN * 

* LIMITS * 
***************** 



CALLING 

ROUTINE = 

IDPOS 



.♦CURRENT*. 

COMPUTED * 
X.Y OUTSIDE 
. SCREEN .* 



♦LAST GENERATED * 
X* X.Y = CURRENT *. 

* COMPUTED X.Y * 

* * 
♦*♦♦*♦♦♦♦♦***♦*♦♦ 



G2020 

****C4********* 

* * 
. ..X* GSPOl RETURN * 

* * 
*************** 



* LAST COMPUTED * 
X* X.Y = CURRENT * 

* COMPUTED X.Y * 

* * 
***************** 



*****F !**♦♦♦♦♦♦♦* 

* ♦ 

♦ ISCW ( IN ♦ 
♦GCOM) = ADDRESS* 

♦ OF GRID DATA ♦ 

* * 
******♦♦♦♦♦♦♦♦*** 



.♦CURRENT*. 

.♦COMPUTED X,*. 

Y OUTSIDE 

*. LIMITS .♦ 



.♦ LAST ♦. 

COMPUTED ♦ 
<.Y OUTSIDE 
. LIMITS .* 



* Kl *.X 



**** 



*****E2********** 

♦ * 
*ISCW (IN GCOM) * 

•X* = ADDRESS OF * 

♦ SCREEN DATA ♦ 

♦ * 
***************** 



.* NEW *. 
.♦GENERATION ♦. YES 
. X*. AREAS=FFFF .*.... 



♦♦♦♦♦E4*******^** 



**** 

♦ * 

♦ E3 ♦ 

♦ * 
**** 

G2265 



♦♦♦*F 2* ******** 
► * 

* GSPOl ERROR * 

* * 
*************** 



* SCISSOR 

SUBROUTINE 
►. LOADED 



.♦OUTPUT ♦. 
K MODE= * 

INCREMENTAL 



♦♦♦♦♦G3+ ♦♦♦♦♦♦♦♦♦ 
♦GSP06 /CO^ 

♦-♦—♦-*-*-*-*—*-* 
<♦ SCISSOR ♦ 

♦TO SCREEN/GRID * 
* LIMITS ♦ 

♦*****♦♦♦♦♦****** 



CALLING 

ROUTINE = 

MVPOS 



.♦OUTPUT *. 
.* *. 

. MODE=AB SOLUTE. 



► *** 



*****K2*** ******* 

♦ ♦ * NEW * 

♦ NEW POSITION ♦ ♦ GENERATED ♦ 
♦AREAS (IN GCOM )*...... ..X* AREAS=CURRENT ♦. 

♦ = FFFF ♦ ♦ COMPUTED X.Y ♦ 



.♦CALLING*. 
'. ROUT 1 NE= MVPOS '. 



G2257 . 

*****E5* ♦♦******* 
*CL/A1 * 



***************** 



************** 



>***F5********** 



**♦♦♦♦♦♦♦♦******* 



G2270 X 

♦****G4 ********** 
♦INCR /CN+ 



♦ BLANKED MODE * 

* * 
****♦♦++********* 



♦LAST GENERATED * 

* X.Y = NEW * 

* GENERATED X.Y * 

* * 
***************** 



*****J4********** 

* * 

* LAST COMPUTED * 

* X.Y = CURRENT *. 

* COMPUTED X.Y ♦ 

* ♦ 
♦+♦♦♦♦*********** 



G2020 

****JS* ******** 

* 1 
...X* GSPOl RETURN 4 

* * 
*************** 



***************** 



***************** 



***** 
*CK * 
* Al* 
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Chart CK. GSP02 - Generation Support (continued) 



***** 

*CK * 
* Al* 



* NEW 

GENERATION 
X. AREA = . 

*.FFFF .* 



.♦OUTPUT *. 
t MODE= * 

INCREMENTAL 



.* *. **** 

OUTPUT *• YES * * 
MODE = .*....X* F2 * 

.OPTIMIZED.* * » 



* LAST COMPUTED * 

* X.Y = CURRENT *X. 

* COMPUTED X,Y * 

* * 
***************** 



NO .* CALLING 
..»*. ROUTINE - 
*. PSGMT 



♦LAST GENERATED * 
.* X,Y = NEW *> 

* GENERATED X.Y * 

* * 
***************** 



CALLING 
ROUTINE = 
. PSGMT 



.G228S 

*****C2********** 
*INCR /CN* 

*-*-*-*-*-*-*-*-* 

* BLANKED *> 
♦MODE LGX. LGY. * 

* NGX, NGY * 
***************** 



.* Y-END * 


. NO 


*. INDICATOR ON 


.* 




*. .* 






*. .* 






*. .* 




X 


* YES 




***** 
*CH * 










♦ ♦ 






♦ 


G2335 X 






*****E1 ********** 




* DECREMENT 


* 




* EXTERNAL 


* 




♦COUNTER BY ONE 






* FIRST TIME 


* 




* SWITCH=0 


* 




***************** 





*****D2********** 

♦ I NCR /CN* 
*-*-*-*-*-*-*-*-* 

♦ UNBLANKED *> 
♦MODE LGX. LGY. ♦ 

♦ NGX. NGY ♦ 
♦♦♦+♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.♦ NEW ♦. 
YES .♦ POSITION 
....*. AREAS=FFFF 



CALLING 

ROUTINE = 

PSGMT 



G2320 X 

*****E3 ********** 
*INCR /CN* 

*-*-♦-*-*-♦-♦-♦-♦ 
. ...* BLANKED * 
♦MODE NPX, NPY, * 
* NGX. NGY ♦ 
*♦♦♦♦♦♦♦♦♦♦****** 



NEW 

POSITION 

. AREAS= . 

♦.FFFF .♦ 



CALLING 
ROUTINE = 
. PSGMT . 



♦ GENERATE ♦ 

♦ MBA ORDER TO ♦ 

♦ NGX, NGY ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



NEW 
POSITION 
. AREA=FFFF. 



♦ GENERATE 

♦ MBA ORDER TO 

♦ NPX, NPY 

* 
**************** 



G2386 X 

♦♦♦♦*D5********** 
♦UD/A1 



♦-♦-+-♦- 



-*-*-*-* 



G2386 X 

+++++E4** ******* 

♦CL/A1 

♦-♦-♦-*-*-*-*-*- 
...♦STORE FUNCTION 



♦STORE FUNCTION ♦ 
♦ ♦ 

♦♦♦♦**♦**♦♦♦*♦♦♦♦ 



♦ E5 *.X. 

* * . 
*♦** . 

G2362 X 

*****E5********+* 



♦ ♦ GENERATE 

♦ X* DBA ORDER TO 

♦ ♦ NGX, NGY 



♦♦♦♦♦♦♦♦*♦**♦*♦** 



***** 
*CH * 
* B2* 



****G1 ********* 

* ♦ 

* GSPOl RETURN t 

* * 
*************** 



*♦♦ + 
G241 1 



♦ G4 *.X. 
***♦♦ ♦ . 

♦ ♦♦♦ . 
G2362 X 

♦♦♦♦♦G4+*******++ 

♦ ♦ 
+ GENERATE ♦ 

♦ DBA ORDER TO ♦ 

♦ NGXI, NGYI ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦**♦♦♦♦♦♦ 



***************** 

*♦♦* 

♦ ♦ 

♦ G4 ♦X.. 

♦ ♦ . 
**** . NO 



.* CAN *. 
.♦ ORDER BE ♦. 
*. INCREMENTAL .♦ 



*****G 5*** ******* 

* * 

* GENERATE * 

* DBI ORDER TO * 

* NGXI . NGYI * 

* ♦ 
*♦♦***♦♦♦*♦♦***** 



* GENERATE * 

* MBA ORDER TO *> 

* NGX. NGY * 

* * 
*****♦♦♦♦♦♦♦♦*♦♦♦ 



.♦ CAN ♦. 
* ORDER BE * 
INCREMENTAL 



»H4********** 



GENERATE MBA 



***************** 



G2361 

*****H5* 
*CL/A1 



******** 



-*-*-*-*-*-*-*-* 

♦ ♦ 
*STORE FUNCTION * 

♦ ♦ 
***************** 



* Jl *.X. 

* * . 
**** 

G2 386 X 

*****J 1********** 
*CL/A1 * 

*-*-*-*-*-*-*-*-* 
♦STORE FUNCTION ♦ 



***************** 



► LAST ORDER 

TO BE 
C GENERATED. 



*****J3 ****♦♦♦♦♦♦ 

♦ GENERATE ♦ 

* MBI ORDER TO ♦. 

♦ NPX, NPY * 

* * 
**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



G2386 X 

***♦* J 4+* ♦♦♦♦♦♦♦♦ 

♦CL/A1 * 

*-*-*-*-*-*-*-*-* 

. ..X*STORE FUNCTION * 



***************** 



*****K2* ********* 

* * 

* GENERATE * 

* MBI ORDER TO * 

* NGX. NGY ♦ 

* * 
***♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*****K 4** ******** 

* * 

* LAST GENERATE * 

* X.Y = NEW * 

* POSITION X.Y * 

* * 
***************** 



**** 

* * 

* F4 * 

* * 
**** 
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Chart CL. GSP02 - Generation Support (continued) 



***** 

*CL * 
* Al* 



ONE *. NO 
WORD .*... 
.AVAILABLE.* 



**** 
* * 
» Bl *.X 



**** 
62601 X 

*****B1 ********** 

* * 
♦STORE THE ORDER* 
*NAGAP = NAGAP+1* 

* EGCA = EGCA+1 * 

* * 
***************** 



*****C1 ********** 

* * 

* ROTATE * 
♦ACCUMULATOR AND* 

* EXTENSION - * 

* * 
***************** 



.X*. NORMAL MODE 



*. ACTIVE ICA .*. 



UPDATE MODE 



*.GSP05 LOADED 



* ENGCA = * 
.X*COUNT OF WORDS *. 

* NOT STORED * 

* * 
***************** 



*****B4**** ****** 
♦GSP05 /BN* 

*-*-*-*-*-*-*-*-* 
(.* PUSH-UP * 



****A5********* 

* * 
.X* GSP01 RETURN * 

* 4 
*************** 



*****C2********** 

♦ GSP04 /BM* 

*-*-*-*-*-*-*-*-* 

* PUSH-DOWN * 



***************** 

. **** 

. * * 

..X* Bl * 
* * 

**** 



G2815 

X 

****C3 ********* 

* * 

* GSP01 ERROR 4 

* 4 
*************** 



***************** 

**** 
. * * 

..X* Bl * 
* * 

**** 



****D2********* 

* 4 

* RETURN 4 
► 4 

*************** 



* SET * 

* EXTENSION TO * 

* ZERO * 

* * 
***************** 
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Chart CM. GSP02 - Generation Support (continued) 



**** 

♦ CM * 

* Al *. 



GSB 
TABLE 
BUILT 



62453 

*****A2********** 

* BUILD * 

* GRAPHIC SHORT * 
. ..X* BRANCH TABLE * 

* FOR CURSOR + * 

* CURSOR NULL * 
***************** 



****A4********* 

* * 
♦PACKED PROCESS * 

* * 
*************** 



G2466 X ■ 

*****B1 ********** 

* SET INDEX * 

* VALUES BY * 
♦CHARACTER SIZE * 



*****B4** ******** 
* BUILD GSB FOR * 
♦FIRST HALF WORD* 



***************** 



**************** 



G2470 X 

♦♦***Cl ********** 

* SET INDEX TO * 

* ACCESS ARRAY ♦ 



***************** 



*****C2********** 



***************** 



ICNTR =0 .* 



♦UPDATE POINTERS* 

* * 

* * 
******♦♦♦♦♦****** 



* Dl *.X. 

* * 
**** . 

G2471 X 

*****D1 ********** 
♦TRANSFER THREE * 

* WORD OF DATA * 

* FROM INPUT ♦> 

* ARRAY TO * 

* STORAGE * 
***************** 



.X* GS * 

* * 

**** 



****D3 ********* 

* RETURN * 

* TO CODING * 
» 4 

*************** 



Bl .*. COMMON G5B2 . 

D4 *• *****D5********** 

.* WORD *. * * 

.* AT NAGAP *. YES ♦ ♦ 

♦.GSB TO CURSOR. ♦ ,X*INCREMENT NAGAP* 

♦OR NULL CUR+ ♦ BY I * 

♦. .♦ * * 

♦. .♦ ♦♦♦♦♦♦♦****♦***** 



G2472 X 

*****E 1 *******♦♦♦ 

* MODIFY ARRAY * 

* INDEX GY I ♦ 

* <TO LOAD NEXT * 

* WORD). * 

* * 
***************** 



***j»*E3 ********** 

* MOVE SECOND * 
*AND" THIRD WORDS* 

.* TO FIRST AND * 
♦SECOND STORAGE ♦ 

* POSITIONS * 
♦*♦♦♦*♦********** 



GSB3 XCOMMON 
*****E4********** 
♦CL/A1 * 

*-*-*-*-*-*-*-*-* 

* * 
♦STORE FUNCTION ♦ 

♦ ♦ 
***♦♦♦*♦********* 



* SET GSB * 
X* COUNTER TO *. 

* RLPRE * 

* * 
***************** 



•G247S 

*****F3 ****♦*♦♦♦♦ 
*CM/A4 * 

*-*-*-*-*-*-*-*-* 
t* PACKED * 
♦PROCESS COMMON * 
♦ CODING • 
***********♦♦♦♦♦♦ 



***************** 



.TEXT CODE 



*****G2********** 



***************** 



♦♦♦♦*G3 ♦♦♦*****♦♦ 
♦CM/A4 * 

*-*-*-*-*-*-*-*-* 
<* PACKED * 

♦PROCESS COMMON ♦ 
♦ CODING ♦ 

♦♦*********♦♦♦♦♦♦ 



ICNTR = 

*. 

*. .♦ 



****G5********* 

* RETURN 

* TO MAINLINE 
* 

****♦♦♦♦******* 



G2477 X 

*****H 1 ********** 

* SET CONTROL * 

* VALUE FOR * 

* SUBSCRIPT OR *. 

* SUPERSCRIPT. * 

* BUILD GSB * 
***************** 



H2 *. 

.* WORD *. 
.* AT NAGAP ♦. YES 
.X*.GSB TO CURSOR.*.... 
*. OR NULL .* 
CUR .* 



*. 



***************** 



♦ NO 



t****H4********** 

► ♦ 
» BUILD GSB FOR ♦ 

* SECOND HALF ♦ 

* WORD. UPDATE * 

► PTRS * 
***************** 



GSB3 X 

***** J2********** 
*CL/A1 * 

*-*-♦-*-*-♦-*-*-* 
♦STORE FUNCTION ♦ 



♦♦*•***♦♦♦♦♦♦♦♦♦♦ 



I .*. GSB2 

J4 *. ***** J5********** 

.* WORD ♦. ♦ ♦ 

.♦ AT NAGAP +. YES ♦ ♦ 

X.GSB TO CURSOR.+... X*INCREMENT NAGAP* 

♦. OR NULL .* * BY 1 * 

*. CUR .* * * 

♦. .♦ ***************** 
* NO 



*****K2********** 



GSB3 X 

*****K4******^+** 
*CL/A1 * 

♦-♦-♦-♦-♦-♦-*-*-* 
♦STORE FUNCTION *. 



•*♦*♦♦♦♦*♦♦*♦***♦ 



♦********♦♦*♦♦♦♦♦ 



***************** 



*♦♦♦ 

♦ ♦ 

♦ C3 ♦ 

♦ ♦ 
♦ ♦♦* 
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Chart CN. GSP02 - Generation Support (continued) 



***** 

*CN * 

* Al* 

* * 



* HOUSEKEEPING * 

* * 

* * 
***************** 



*****C1 ********** 

* * 

* SET * 

* UP MODEL DBI * 

* ORDER * 

* * 
***************** 



*****D1 ********** 



***************** 



* SET * 
.X* UP MODEL MBI * 

* ORDER * 

***************** 



.* DX 2 * 
.GREATER THAN 
*. DY 2 .* 



* DIVIDE * 

* DY BY MAX. * 

* INCR. * 

* * 
***************** 



* DIVIDE * 
K* DX BY MAX. * 

* INCR. * 

* * 
***************** 



* SET LOOP * 

* COUNT = * 

* QUOTIENT + 1 * 

* * 
***************** 



* CALCULATE * 
♦COORDINATES FOR* 

* INCR ORDER * 

* * 
***************** 



G2759 X 

*****J 1********** 
♦CL/A1 * 

*—*—*—*-*—*-*-*-* 
♦STORE FUNCTION * 



***************** 



*****K1 ********** 



•X*.LOOP COUNT 



***************** 



****K3 ********* 

* RETURN * 

* TO CALLING * 

* PROG. * 
*************** 
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Chart CO. GSP06 - Scissor Subroutine 



****A1********* 

> * 
* GSP06 * 

► * 
*************** 



*****B1*** ******* 

* * 

* * 

* HOUSEKEEPING * 

* * 

* * 
***************** 



—*****B2*** ♦♦♦♦♦♦♦ 
-♦ * 

-* SEE LISTING * 
-* SYMBOLS G6100 * 
-* THROUGH G6136 * 
-* * 

-***************** 



G6100 X 

**C1******* 

* CALCULATE * 
♦POINTS WHERE * 

♦VECTOR INTRSCTS* — 
* SCREEN/GRID * 

* BOUNDARY * 
*********** 



* DELETE POINTS * 
♦OUTSIDE SCREEN * 

* GRID BOUNDARY * 

* * 
***************** 



VECTOR *• NO 
DIRECTION .*... 
. OUTSIDE .* 
♦ .TO IN.* 



G6360 OUTOUT 

*****D4********** 

* CALCULATE * 

* RELATIVE * 
...X* POSITIONS OF * 

*POINTS TO LAST * 
♦COMPUTED POINT * 
***************** 



* DELETE POINTS * 

* OUTSIDE ♦ 
♦ORIGINAL VECTOR* 

* ♦ 
***************** 



X OUT IN 
*****E3 ********** 
♦STORE REMAINING* 

* COORDINATES * 

* (PT3-PT6) IN ♦ 

♦ NEW POSITION ♦ 

♦ POINTERS ♦ 
***♦♦♦♦********♦♦ 



*****£4********** 

♦ STORE POINT ♦ 
♦NEAREST TO LAST* 
♦COMPUTED POINT * 
♦IN NEW POSITION* 

* POINTERS * 
***♦♦♦♦♦+♦******♦ 



* COUNT * 

* POINTS NOT * 

* DELETED * 

* * 
***************** 



*****F3 *+♦***♦♦♦♦ 

♦ STORE PT2 ♦ 

♦ IN NEW ♦ 

♦ GENERATION * 

♦ POINTERS IN * 

♦ GCOM * 
**♦♦♦♦♦********** 



*****P4* ********* 
♦STORE REMAINING* 

♦ POINT IN NEW ♦ 

♦ GENERATION ♦ 

♦ POINTERS IN ♦ 

♦ GCOM ♦ 
♦**♦♦♦+♦♦♦♦♦***** 



.* ALL 
POINTS 
*. DELETED 



*****G2** **+♦**** 

* PUT /FFFF IN * 
♦NEW GENERATION ♦ 

.X* AND POSITIONS *. 

* POINTERS IN * 

* GCOM * 
***************** 



♦♦♦♦G3 ♦+♦****** 
K * 

► RETURN * 

* * 

*************** 
X 

TO-GSP02 



*****H2********** 

* DELETE ONE SET * 

* OF ANY ♦ 
<♦ DUPLICATE * 

* COORDINATES * 

* * 
***************** 



VECTOR *. YES 
DIRECTION .*.... 
•INSIDE TO.* 
*. OUT .* 



♦STORE /FFFF IN * 
•X* NEW POSITION *. 

♦ POINTER IN GCOM* 

* * 
***************** 



*****J3********** 
*STORE REMAINING* 

* COORDINATES * 
. .X* (PT3-PT6) IN * 

♦NEW GENERATION * 

* POINTERS * 
***************** 
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Chart DA. EXEC - Execute Display 



****A1 ********* 
► * 

» EXEC * 
¥ * 

*************** 



*****B1********** 
*GSP01 * 

*- *—*—*-*—*—*—*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



**** 

* * 

* C2 * 

* * 
**** 



*. STATUS=EXEC .*.. 



**** 

* * 
•X* E3 * 

* * 
**** 



•* IS *. ****C2********* 

.* *. NO * * 

*.ADORESS GIVEN.* ...X* GSPOl ERROR * 

*. .* * * 

*. .* *************** 



.*. MODE=UPDATE .* 



**** 

* * 
. X* E3 * 

* * 
**** 



*****E1********** 
*GSP03 * 

*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



Fl *. 
.* *. **** 

► *. NO * * 

ECCB FOUND .*....X* C2 * 
f. .* * * 

*. .* **** 

*. .* 
* YES 



.* *. **** 

.* *. NO * * 

♦ .ELEMENT ENDED.* .... X* C2 * 



.* FOUND *. 
.* 1 

. ECCB= CURRENT 



* E3 *.X 



**** 
EX025 X 

*****E3 ********** 

* SET EXEC * 

* BIT IN DSPIN * 

* SET GB ORDERS * 

* IN SYSTEM * 

* DISPLAY * 
***************** 



*.-*_*_*_*_*_*_*_* 

* FUNCTION 1950 * 

* * 
***************** 



*****G3 ********** 

* UPDATE IMAGE * 
*ENTITY POINTER *. 

* IN GCOM * 

* * 
***************** 



****D4*** ****** 
.YES * * 

.* X* GSPOl RETURN * 



*************** 



.* *. **** 

.* *. NO * * 

♦.IMAGE ENTITY ,*....X* C2 * 



**** 

* * 

* B3 * 

* * 
**** 
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Chart DB. TMDSP - Terminate Display 



****A1 ********* 
H * 

► TMDSP * 
t * 

*************** 



*****B1 ********** 
♦GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



****C2********* 
» * 

* GSPOl ERROR < 
t * 

*************** 



*****D1 ********** 

* * 

* STORE GB NOP *V 

* ORDERS IN * 
♦SYSTEM DISPLAY * 

* * 
***************** 



*****E1 ********** 
♦DSPYN /DD* 

*-*-*-*-*-*-*-*-* 

* * 

* FUNCTION 1950 * 

* * 
***************** 



*****F1 ********** 

* SET * 

* TERMINATED * 

* DISPLAY * 
♦INDICATOR TO ON* 

* * 
***************** 



*****G1 ********** 

* * 

* SET ICA * 
♦ECCB POINTER TO* 

* ZERO ♦ 

* ♦ 
***************** 



****H1 ********* 

* * 

* GSPOl RETURN * 

* * 
*************** 
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Chart DC. SPFKL - Set Programmed Function Keyboard Lights 



****A1********* 

* 4 

* SPFKL 4 

* 4 
*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*- *-*- *-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 

* * 

* HOUSEKEEPING * 

* MAKE CODE * 

* SERIALLY * 

* REUSABLE * 
***************** 



*****D2********** 



* ARE *. 








* 


ALL 


*. 


NO 




* 




* 








VALID . 






X * 


*. • * 








. * 


*. .* 








. ** 


* YES 








**** 


• 






* 
* 


* 
D2 * 








* 


* 










!■*♦* 


X 








P0090 



***************** 



*****D3 ********** 
*DSPYN /DD* 

*-*_*_*_*_*_*_*_* 
K* *. 

♦RESTART DISPLAY* 
* * 

***************** 



.* SELECTIVE *. YES 



El *. *****E2********** 

.* *• * * 

.* ARE ALL *. YES * SET * 

*. LIGHTS TO BE .*........ X* ALL INDICATOR * X*. ENABLING 

♦.TURNED ON.* * BITS ON * X *. REQUESTED. * 

*. .♦ * * . ♦. .♦ 

♦. .♦ ***************** 



.* 



Fl 



P0080 

*****F2******++*« 



ARE ALL *. YES ♦ SET ALL ♦ 

♦.LIGHTS TO BE .*....... .X*I NDI CATOR BITS *. 

*. TURNED .* * OFF ♦ 

♦. OFF .♦ * * 

♦. .* ***************** 

* NO 



* ARE 32 * 

ELEMENTS IN 
*. ARRAY .* 



G2 *. 
.♦ DOES *. 
.* EACH *. YES 
. ELEMENT .*... 
*. CONTAIN 0.* 
♦.OR 1 .* 
♦ . .♦ 
* NO 

. ♦♦♦* 
. ♦ ♦ 
..X* D2 ♦ 
* * 
***♦ 



♦ ACCESS ♦ 
♦EACH ELEMENT OF+ 

♦ THE ARRAY ♦ 

♦ ♦ 
***************** 



.♦ IS THE *. YES 
♦.ELEMENT VALUE. ♦.... 
♦. VALID .♦ 



*****G3 ********** 

* SET MATCHING * 

* INDICATOR BIT * 
. X*FOR EVERY LIGHT* 

* TO BE LIGHTED * 

♦♦♦♦♦♦********♦** 



****D4********* 
f 4 

f GSPOl ERROR 4 
K 4 

*************** 



*****E4********** 

* MOVE * 

* LIGHT * 
•X* INDICATORS TO * 

♦GCOM LOCATIONS * 

* 23 AND 24 * 
***************** 



*****F4***+****** 
*DSPYN * 

*-*-*-*-*-*-*-*_* 

*SET PFK LIGHTS * 
* * 

***************** 



****G4********* 

* * 

* GSPOl RETURN 4 

* 4 
*************** 
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Chart DD. DSPYN - 2250 I/O Subroutine 



****A1********* 

* * 

* DSPYN * 

*************** 

**** 

* * 

* Bl *.X 

* * 
**** 

DPENT X 

*****B1********** 



*SAVE REGISTERS * 
* * 

***************** 



CI *. *****C2********** 

.* *. * * 

.* *. YES * GET * 

.FUNCTION 1970.* X* DEVICE STATUS *. 

*. .* * WORD * 

+ . .♦ * * 

*. .* ***************** 



**** 

* * 

* C4 «... 

* * 
**** 

.*. RTY70 X 

C3 *• *****C4********** 

¥ *. * * 

♦ .YES * GET * 

DSW = .*........X* DEVICE STATUS *X. 

.* * WORD * 

*. .* * * 

*. .* ***************** 



♦.FUNCTION I960.*. 



**** 

* * 

* E2 *. 



**** 
AMG60 X 

*****E2* ********* 

* * 

* MOVE * 

* READ STATUS * 

* DATA * 

* * 
***************** 



***************** 



****E3 ********* 
V * 

* RETURN * 

* * 
*************** 



* SAVE * 
X* STATUS * 

* INFORMATION 4 

* * 
***************** 



♦.FUNCTION 1950. ♦. 



♦ NO 




***** 
*DE * 
* Al* 






* NO 


" 




* * 

* 






* 


X 










X 


.♦. 




CHK6C 




.*. 


Gl ♦. 










G2 ♦. 


.* ♦ 










.♦ ♦. 


.♦ 


*. 


YES 




♦FIRST WORDS*. 


♦.FUNCTION 1948. 


*.. •• 


*. 




IN AREAS .♦ 


*. 


* 






* 


MATCH .♦ 


*. .* 










♦ . .♦ 


*. .♦ 




X 






*. .♦ 


* NO 




***** 






* NO 


* 




*DE * 

* D4* 

* * 






**♦♦ 
. * * 
..X+ E2 ♦ 


X 




* 






♦ * 
**** 



♦SET FIRST WORD ♦ 
<♦ IN ISS AREA + 
+ NEGATIVE ♦ 

♦ * 

***************** 



*-*-*-*—*-*-*- 



*+*****♦♦♦******* 



♦.FUNCTION 1940.*.-.. ....X* 



♦♦♦♦H2+** ****** 
4 
RETURN 4 

4 

*************** 



ADDRESS 
OF PFKL 
PATTERN 



**** . 
*DD * 

* Jl *.X. 

* ♦ . 

* ♦♦♦ . 

FUNER X TYPER 
♦♦♦♦♦J l********** 

* SAVE * 

* STATUS * 

* INFORMATION * 

* WAIT AT ♦ 

* LOCATION 41 * 
**♦♦♦♦*********** 



*****J3********** 

* * 

* SET BIT * 
♦PATTERN IN XIO ♦ 

* COMMAND ♦ 

* ♦ 
***************** 



**** 

* * 

* Bl * 

* * 
**** 



*****K3 *♦♦***♦♦♦* 



♦***♦*♦*♦*****♦♦♦ 



*****K *********** 



***************** 



****KS********* 
* * 

► RETURN * 

K 4 

♦*♦*♦♦♦*♦*♦***♦ 
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Chart DE. DSPYN - 2250 I/O Subroutine (continued) 



**** 

*DE * 
* Al * 



**** 

* * 

* A3 *. 



.START ADDRESS.*. 



***** 

*DD * 

* Jl* 

* * 



*****B1 ********** 

* * 
*PUT ADDRESS IN * 

* XIO * 

* REGENERATION * 

* COMMAND * 
***************** 



GET DSW * 

* 
**************** 



DEVICE BUSY 



DSTRT X 

*****E1 ********** 

* ISSUE XIO * 

* START * 

* REGENERATION * 

* COMMAND * 

* * 
***************** 



DPN70 X 

*****F1 ********** 
♦COMMON CODE * 



***************** 



DPN48 

*****D2*** ******* 
♦COMMON CODE * 

♦-*-*-*-*-*-*-*-* 



* RESET DEVICE * 

* * 
***************** 



**** 

* * 

* G2 *. 

* * 
**** 



DEVICE BUSY 



**H1********** 

RESTORE * 

PROGRAM * 

FUNCTION * 

KEYBOARD * 

LIGHTS * 

************** 



****J 1********* 
* * 

► RETURN * 
K * 

*************** 



TRY50 X 

*****GZ********** 

* I SSUE XI O * 

* START * 
. ..X* REGENERATION * 

* COMMAND * 



*************** 



*****H2********** 

* ISSUE XIO * 

* SENSE DEVICE * 

* COMMAND * 

* * 
***************** 



*****A4********** 
* USERS RTN * 
*-*-*-*-*-*-*-*-* 



***************** 



* ISSUE XIO * 

* RESET 2250 *X 

* COMMAND * 

* * 
***************** 



*****C3* ********* 

* ISSUE XIO * 

* START * 

* REGENERATION * 

* COMMAND * 

* * 
***************** 



*****D3 ********** 

* * 

* ISSUE XIO * 

* SENSE DEVICE * 

* COMMAND * 

* * 
***************** 



DEVICE BUSY .*. 



**** 

* * 
•X* G2 * 

* * 
**** 



***** 
*DE * 
* D4* 



* ISSUE XIO * 

* RESET 2250 * 

* COMMAND * 

* * 
***************** 



DPN70 X 

*****E4****** 
♦COMMON CODE 



* SAVE STATUS * 

* DATA WAIT AT * 

* LOCATION 41 * 

* * 
***************** 



* SAVE STATUS * 

* DATA WAIT AT *X 

* LOCATION 41 * 

* * 
***************** 



*-*-*-*-*- 

* GET DSW 

* 

************** 



DEVICE BUSY 



* G4 



**** 
RTY48 X 

*****G4********** 

* ISSUE * 
*XIO RESET 2250 * 

* AND XIO SENSE * 
♦DEVICE COMMANDS* 

* * 
***************** 



DEVICE BUSY 



****F 5* ******** 
► * 

* RETURN * 

* * 
*************** 



**************** 
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Chart DF. DSPYN - 2250 I/O Subroutine (continued) 



****A1 ********* 

* * 

* ISSDP * 

* * 
*************** 



♦SAVE REGISTERS * 

* • 

* * 
***************** 



*****C1 ********** 

* * 

* ISSUE READ * 
♦STATUS TO GCOM * 

* COMMAND * 

* * 
***************** 



* EI *.X 



**** 
RSTDE X 

*****£ I ********** 

* SET * 
*ISSDE TO ZERO. * 

* STORE ARRAY *X 

* ADDRESS IN * 

* RQNDA * 
***************** 



* I SSUE READ * 
•X*STATUS TO GCOM * 

* COMMAND * 

* * 
***************** 



*****DS* ********* 
**** * * 

► * * STORE * 

K EI *X..„.* DSW IN ATNTP * 



********* 



*****E3 ********** 

* * 

* ISSUE READ * 
.X* DEVICE STATUS *. 

* COMMAND * 

* * 
***************** 



DSW = 



**** . 

* * 

* F4 *.X. 

* * 
**** 



.* ORER *. 
. CONTROLLED . 
♦.ATTENTION.* 



.X*LOAD ERROR CODE* 

* * 

* * 
***************** 



***** 
*DJ * 
* Al* 



.* ONLY *. 
.* ORDER 
*. CONTROLLED 



*.ONLY KEYBOARD.*. 



**** 

* * 

* F4 * 

* * 
**** 



ISSIDC .*. 




ISSKB 


.*. 








• *• 




HI *. 






HZ *. 








H3 *. 




.* *. 














* * 




.* CANCEL *. YES 




ANKB * 


NO 




.* 


PFKB 


* 


*. INDICATOR SET.* 


.... 


* 


DATA 
.AVAILABLE.* 






* 


DATA 
AVAILABLE 




*. .* 






* 


*• •* 






*. .* 








*. .* 




*. .* 


X 




*. .* 








*. .* 




* NO 


***** 

• DG * 

* B2* 
* * 

* 




* YES 
X 








* YES 

X 
***** 
*DG * 




RAD60 X 




IANPF 


.*. 








* CS* 




*****J I********** 






J2 *. 








* * 




* * 




.* *. 












* TRANSFER * 




.* 


PFKB *. 


NO 










* READ STATUS * 




*. 


DATA 


*... 










* DATA TO ARRAY * 




* 


AVAILABLE.* 












* * 






*. .* 












4**************** 






*. .* 




X 














* YES 


***** 
*DH * 
















* 


AI* 














X 


* * 














**** 




* 














* * 













*****G4********** 

* * 
*XIO RESET 2250 * 

* XIO RESTORE * 

* PFKB LIGHTS * 

* * 
***************** 



ACTIVE ICA 



*****J4********** 

* * 

* LOAD ADDRESS * 

* OF SYSTEM *. 

* DISPLAY * 

* * 
***************** 



* LOAD 

X* ADDRESS OF 

* IMAGE ENTITY 

*************** 



*****JS*** ******* 

* * 

* STORE ADDRESS * 
. X* IN XIO. START * 

* REGENERATION * 

* * 
***************** 



«****K I********** 



I'**************** 



***** 
*DG * 
* *** 
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Chart DG. DSPYN - 2250 I/O Subroutine (continued) 



***** 

*DG * 
* Al* 



.*. 

Al *. *****A2********** 

.* *. *DIRECT ENTRY* 

.* IS THERE *. YES *_*-*-*-*-*_*-*_* 

*.A DIRECT ENT..*........X* * 

*. RTN. .* * * 

*. .* * * 

*. .* ***************** 
* NO 

.X. .......... .............. 

X 

.*. RTURN 

Bl *. *****B2********** 

.* *. * * 

.* *. NO * RESTORE * 

*. 6SP LOADED .*.... ....X* REGISTERS *. 



*. 



*. .* . ***************** 


* YES * 


X 


**** . * * 


**** 


*DG * . *DG * 


. * * 


* CI *.X. * B2* 


...* B2 * 


* * . ***** 


* * 


**** X 


**** 


LPTOC .*. PRIRT 


.*. 


CI *. 


C2 *. 


.* *. 


• * *. 


.* PROCESSED *. YES .* 


PRIORITY *. 




LIGHT PEN .* 


*. ENTRY .* * 


.* 


*. .* 


*. .* 


*. .* 


*. .* 


* NO 


* NO 


**** . 




* * 




* Dl *.x. 




* * . 




**** x 


X 


OCPRO .*. LTPRO 


.*. 



****B3* ******** 
* * 

» RETURN * 

► * 

*************** 



***** 
*DJ * 
* Jl* 



*****C4********** 

* * 

* SET UP ILS * 
K* RETURN WITH * 

* ADDRESS OF * 

* RQATN * 
***************** 



.* ORDER *. NC 
. CONTROLS .*.. 
*. ENABLED .* 



OCLOP X 

*****F1 ********** 

* STORE * 

* ORDER CONTROL * 

* CODE AT ATDAT * 
♦STORE DADDR AT * 

* ATDAT +10 * 
***************** 



*****G1 ********** 



* 


STORE 


* 


*NOADR 


AT ATDAT 


* 


* 


+ 11 


* 


* 




* 


***************** 


**** 








*DG * 




X..... 




* HI * 


.X 






* * 








**** 








RSTRS 


X 




*****H1 ********** 


* 




* 


* RESTART 


* 


♦SYSTEM DISPLAY 


• 


* AT 


0/ 


kDDR 


* 



LIGHT PEN 



***** 
*DJ * 
* Gl* 



YES .* 
....*. PROCESSING 
♦.COMPLETE . 



***************** 



*****E4********** 
♦DIRECT ENTRY* 

*-*-*-*-*-*-*-*-* 



***************** 



TRANSFER 

READ STATUS 

DATA 



YE S . * * 

......DIRECT ENTRY 

*. RTN .4 



*****G4********** 

* * 

* STORE PFKB * 

* KEY NUMBER AT * 

* ATDAT +3 * 

* * 
***************** 



*****H4********** 

* * 

* STORE * 
♦OVERLAY NUMBER * 

* AT ATDAT +4 * 

* * 
***************** 



* J4 *.X 

* * 
**** 

X 
*****J4********** 



***************** 



**** 

* * 

* B2 * 

* * 
***♦ 



YES .* PROCESSED *. 
...*. BY DIRECT .1 
*. ENTRY .* 



.*. AT DAT = 



PFKB 
INDICATOR 
• ENABLED . 



*****K5********** 

* * 

* STORE * 

* PFKB CODE AT * 

* ATDAT * 

* * 
***************** 
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Chart DH. DSPYN - 2250 I/O Subroutine (continued) 



***** 

*DH * 
* Al* 



* TRANSFER * 

* READ STATUS * 

* DATA * 

* * 
***************** 



***** 
*DJ * 
* E3* 



*****C4********** 
♦DIRECT ENTRY* 
*-*-*-*-*-*-*-*-* 



.* 



*. 



. * 



* YES * NO 

**** 
. * * 
..X* E3 * 
* * 
X **** 

ISEND .*. 

Dl *. *****D2********** 

.* *. *DIRECT ENTRY* 

•* IS THERE *. YES *_*-*_*_*_*_*_*_* 

*.A DIRECT ENT. .*.... . . . . X* * 

*. RTN .* * * 

*. .* * * 

*. .* ***************** 

* NO . 

.X......................... 

X 

.*• 

El *. 

.* *. 

.* *. NO 

*. GSP LOADED .*........ 

*. .* X 

*. .* ***** 

*. •* *DG * 

* YES * B2* 

* * 



*****D3 ********** 

* SET * 

* CANCEL * 

* INDICATOR SET *. 
*UP ILS RESTART * 

* ADDRESS * 
***************** 

**** 

* * 

* E3 *... 



***************** 



***** 
*DG * 
* B2* 



***** 
*DG * 
* B2* 



*****E4********** 
♦DIRECT ENTRY * 
*-*-*-*-*-*-*-*-* 



***************** 



***** 
*DG * 
* J4* 



*. GSP LOADED .*. 



***** 

*DG * 

* B2* 

* * 



*****FS********** 

* * 

* STORE * 

* ANKB CODE AT * 

* ATDAT * 

* * 
***************** 



ATDAT = 



***** 
*DG * 
* J4* 



.* PROCESSED *• YES 
*. BY DIRECT .*.... 
*. ENTRY .* 



***** 
*DG * 
* J4* 



*****G5 ********** 

* * 

* STORE EBCDIC * 

* CODE FOR ANKB * 
*KEY AT ATDAT +1* 

* * 
***************** 



***** 
*DG * 
* J4* 



***** 
*DG * 
* J4* 



ATDAT = 



***** 
*DG * 
* J 4* 



*****J 1********** 

* * 

* STORE * 
*END KEY CODE AT* 

* ATDAT * 

* * 
***************** 



*.ANKB ENABLED 



***** 
*DG * 
* J4* 
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Chart DJ. DSPYN - 2250 I/O Subroutine (continued) 



***** 

*DG * 
* B2* 



*****B1********** 

* * 

* TRANSFER * 

* READ STATUS * 

* DATA * 

* * 
***************** 



*****C1 ********** 



***************** 



*****A3 ********** 

* * 
♦STORE AT NX AND * 

* AT NY AT AT DAT * 
*+3 AND ATDAT +4* 

* * 
***************** 



*****E)3********** 

* STORE * 

* ICACV THRY * 
*IELCV AT ATDAT * 

* +5 THRU ATDAT * 

* +8 * 
***************** 



*****C3 ********** 

* STORE ISBCV * 

* AT ATDAT +9 * 
♦STORE dADDR AND* 
*NOADR AT ATDAT * 

* +10 AND +11 * 
***************** 



***** 
*DG * 
* HI* 



GSP LOADED •*. 



***** 
*DG * 
* B2* 



***** 
*DJ * 
* E3* 



El *. *****E2********** 

.* *. *DIRECT ENTRY* 

.* *. YES *-*-*-*_*-*_*-*_* 

■DIRECT ENTRY .*.... ....X* * 

*. RTN .* * * 

*. •* * * 

*• •* ***************** 

* NO . 

.X......................... 

X 

Fl *• 

.* PROCESSED**. YES 

BY DIRECT .......... 

*. ENTRY RTN.* X 

*. .* ***** 

*DG 



NO 



* Gl *.X. 



* CI* 

* * 



**** X 




LTPRDY .*. 




Gl *. 




.* *. 




.* *. NO 








*. .* 


X 


*. .* 


***** 


*. .* 


*DG * 


* YES 


* HI* 



CNEND X 

*****E3********** 

* SET * 

* CANCEL * 

* INDICATOR TO * 

* ZERO * 

***************** 



.END KEY ATTN 



* RESET 2250. * 
•X* TURN OFF PFKB *. 

* LIGHTS * 

* * 
***************** 



****F5********* 

* * 

* *DUMP+1 * 
► * 

*************** 



.*. 




CNPRO 




G3 *. 




*****G4** ******** 




.* * 




* * 






*. YES 


* * 












. ATTN 


* 


* RETURN * 


X 


*. .* 




* * 


***** 


*. .* 




***************** 


*DG * 


* NO 






* J4* 



**** 


. 




*DJ * 






* Jl * 


.X. 




* * 






**** 






LPR02 


X 




*****J i********** 


* 




* 


* 


STORE 


* 


♦LIGHT 


PEN CODE 


* 


* AT 


ATDAT 


* 



************** 



*****K 1********** 

* * 

* STORE EBCDIC * 

* FOR CHARACTER * 

* AT ATDAT +2 * 

* * 
***************** 



***** 
*DG * 
* HI* 



* RESET 2250. * 
•X* TURN OFF PFKB *. 

* LIGHTS * 

* * 
***************** 



*****J3 ********** 

* SET * 

* CANCEL * 
♦INDICATOR TO 1 * 



***************** 



***** 

*DG * 

B2* 



****H5********* 

* * 

* EXIT * 
► * 

*************** 
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Chart EA. SATNS - Set Attention Status 



**** A l ********* 
► * 

f SATNS * 

*************** 



*****B1 ********** 
♦GSP01 /K»* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****D1 ********** 

* * 

* STORE * 

* ENABLE STATUS * 

* IN GCOM * 

* * 
***************** 



....*. PFK ENABLED m* 



*****F1 ********** 

* * 

* SET ALL * 

* INDICATOR BITS * 

* ON IN GCOM * 

* * 
***************** 



*****Ht ********** 

* * 
*SET FIRST WORD * 

* OF ATTENTION * 

* DATA TO * 

* • 
***************** 



****J 1********* 

* * 

* GSP0 1 RETURN * 

* * 
*************** 



****C2********* 

* 4 

* GSP01 ERROR * 

* * 
*************** 
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Chart EB. RQATN - Request Attention Information 



****A2********* 
» * 

► RQATN * 

*************** 



*****B2** ******** 
*GSP01 /KA* 

*_*_*_*_*_*_*_*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



C2 *. 

.* IS *• 

* THERE A 

POINTER TO 

*. ATTENTION. 

*.DATA .* 

*• .* 

* YES 



* SET RQATN * 
♦REENTRY ADDRESS* 

* IN GCOM * 

* * 
***************** 



*****C3 ********** 

* * 

* SET TO * 
<* INDICATE NO * 

* ATTENTION * 

* * 
***************** 



.* FIRST 

ATTENTION 
♦.DATA WORD. 



*****F2********** 

* * 

* SET FIRST * 

* WORD OF ARRAY * 

* TO ZERO * 

***************** 



* TRANSFER * 
. X*ATTENTION FROM * 

*DSPYN TO ARRAY * 

* * 
***************** 



* SET TO * 
♦INDICATE RQATN * 

* CALLED * 

* * 
***************** 

**** 

* * 

* H2 *.X 

* * 
**** 

****H2** ******* 

* * 

* GSP01 RETURN * 

* * 
*************** 
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Chart EC. ROCOR - Return Outer Correlation Value 



* A3 * 

* * 

**** 



**** 

* * 

* A4 * 

* * 
**** 



****A1 ********* 
I * 

» ROCOR * 

K * 

*************** 



. *. ECCB FOUND 



A4 *. 

.* ECCB *. 

.* FOUND = *. 

. TRACKING 

*. ENTITY .* 

♦.ECCB .* 

*. .* 

* YES 



*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



* PUT OUTER * 
*CORVAL IN OUTER* 

* VARIABLE * 

* * 
***************** 



k****B4********** 



8 



******** 



********* 

1 **** 

* * 
..X* KS * 

* * 
**** 

**** 



•CORRVAL VALID.*. 



♦.IMAGE ENTITY 



k**************** 



*****01 ********** 
*GSP03 /KB* 
*—*-*—*-*-*—*-*—* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



f *. YES * SET * 

CONTROLLED .*....... .X*ELEMENT CODE TO*. 

*. ENTITY .* * 2 * 

*. .* * * 

*. .* ***************** 



ECCB FOUND 



****E2********* 

* * 

* GSPOI ERROR * 

* * 
*************** 



***************** 



♦.IMAGE ENTITY 



♦ ♦** 

* * 

♦ F2 ♦... 

♦ * . 
***♦ . 

RC500 X 

*****P2********** 

* * 
♦STORE ZEROS IN * 

...X* OUTER CORVAL ♦. 

♦ AND USER ♦ 

* VARIABLES ♦ 
***************** 



**** 

* ♦ 
• X* K3 * 

* * 
**** 



* KS ♦ 

* * 
**♦ + 



• x+ 



*****G2********** 
*GSP03 /KB* 

♦-♦-*-*-*-*-*-*-* 

SEARCH *. 

* FUNCTION NEXT * 
OUTER ♦ 

**************** 



**** 

* A3 * 

♦ ♦ 
♦ ♦♦♦ 



**************** 



H2 *. 

.* FOUND ♦. 

ECCB = 

TRACKING 

. ENTITY . 

♦.ECCB .* 

♦ . .* 

♦ NO 



♦ ♦♦* 

♦ * 

* A3 * 



. * LEVEL *. 



***************** 



♦ GET LINKAGE * 

♦ ADDRESS FROM ♦ 

♦ SRVT ORDER ♦ 

♦ ♦ 
♦♦♦♦♦*♦♦♦♦******* 



♦ INDEX- 
CONTROLLED 
*. ENTITY 



***♦ . 

* ♦ 

* K3 +.X. 



***************** 



*****K2**++*^**** 

♦ GSP03 /KB + 
♦-♦-♦-♦-♦-+-*-*-* 

X* *• 

♦ SEARCH FUNCTIONS 

♦ * 
***************** 



**** 

* * 

* A3 * 

* * 
**** 



♦♦*+K5*++*++**+ 
X * ♦ 

.....X* GSPOI RETURN * 
X * * 

*************** 

**** 

* * 

* K5 ♦ 

* *- 

*:>** 
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Chart FA. LOCPN - Locate Position of the Light Pen 

LOCND - Locate Position of the Light Pen with No Detect 



♦***A1********* 

* * 

* LOCPN * 
It * 

*************** 



*****B1********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1********** 

* SET SWITCH * 

* TO INDICATE * 

* LOCPN * 

* * 
***************** 



* DSPIN = *. YES 
LCPOS TRACK .*... 
*. LOCND, .* 
*. LOCPN.* 



*.CORVAL VALID .*. 



*****F1********** 

♦ GSP03 /KB* 
*-*—*—*—*-*-*—*—* 

* * 
♦SEARCH FUNCTION* 

***************** 



ECCB FOUND 



ECCB *• NO 
FOR IMAGE .*..) 
. ENTITY .* 



****A2********* 
tf * 

* LOCND < 

* 4 
*************** 



*****B2********** 
*GSP01 /KA* 

*-*-*_*-*-*_*_*-* 

* SAVE FUNCTION * 

* * 
***************** 



*****C2** ******** 

* * 

* SET SWITCH * 

* TO INDICATE * 

* LOCND * 

* * 
***************** 



.* IMAGE *« 
. ENTITY 
♦•DISPLAYED.* 



**** J2* ******** 

* * 

* GSP01 ERROR * 

* * 
************♦♦♦ 



SWITCH 

INDICATE 

LOCPN 



*****D3 ********** 

* * 

* ACTIVATE * 
♦GRAPHIC BRANCH * 
*(SD3) IN SYSTEM* 

* DISPLAY * 
***************** 



*****E3 ********** 

* * 

* SET * 

* DSPIN TO * 
♦INDICATE LOCPN * 

* OR LOCND * 
**♦♦♦♦♦♦♦******** 



*****F3 ***♦**♦*♦♦ 

* STORE ♦ 

* ADDRESS OF ♦ 

* TRACK + 

* SUBROUTINE IN ♦ 

* GCOM ♦ 
***************** 



****G3 ********* 

* * 

* GSP01 RETURN A 

* * 
*************** 



♦ ACTIVATE ♦ 
.X*GRAPHIC BRANCH * 

*CSD6) IN SYSTEM* 

* DISPLAY * 
********♦♦♦♦♦♦♦♦♦ 
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Chart FB. LCPOS - Locate a Position With the Tracking Symbol 



**** A 1 ********* 

* 4 

* LCPOS * 

* * 
*************** 



+-*-*-*-*-*-*-*-* 
► SAVE FUNCTION * 



***************** 



.* DSPIN = i 
► .LCPOS TRACK, 
*. LOCPN, .* 
*.LOCND.* 



.* IMAGE *. 

ENTITY 

♦•DISPLAYED.* 



****D2********* 

* 4 

* GSP01 ERROR * 

* 4 
*************** 



***** El ********** 
*GSP02 /CH* 

+-*-*-*-*-*-*-*-* 

* * 

* GENERATION * 

* FUNCTION * 
***************** 



*****F1********** 

* STORE * 

* ADDRESS OF * 

* GSP09 IN GCOM * 

* AND SYSTEM * 

* D I SPL AY * 
***************** 



*****G1 ********** 

* * 

* STORE NEW * 

* SCALED MOVE * 

* BEAM ORDER IN * 

* GSP09 * 
***************** 



*****H1 ********** 

* * 
+ SET DSPIN * 

* TO INDICATE * 

* LCPOS * 

* * 
***************** 



*****J 1********** 

* SET GRAPHIC * 

* BRANCH IN * 
*SYSTEM DISPLAY * 
*TO TRACK SYMBOL* 

* OPERATIONAL * 
***************** 



****K 1********* 

* GSP0 1 RETURN * 

*************** 
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Chart FC. TRACK - Track Position of Light Pen 



**** A 1 ********* 
F * 

t TRACK * 

^ * 

*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*- *- *- * 

* * 

* SAVE FUNCTION * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 

X 
*****B3 ********** 

* * 
♦STORE OVERHEAD * 
♦ORDERS IN IMAGE* 

* ENTITY * 

* * 
***************** 



.* CALLED BY *. YES 
♦.TRACK LCPOS. .*... 

*. LOCPN. .* 
*.LOCND.* 



*.CORVAL VALID 



IMAGE *. 
ENTITY 
•DISPLAYED.* 



*****F1 ********** 
♦GSP04 /BM* 

*-*-*-*-*-*-*-*-* 

* * 

* PUSH DOWN * 

* * 
***************** 



*****D3 ********** 

* * 

* STORE MBA * 

* ORDER IN * 
♦TRACKING ENTITY* 

* * 
***************** 



****G2* ******** 

* * 

* GSP01 ERROR * 

* * 
*************** 



*STORE OVERHEAD * 

* ORDERS IN * 
♦TRACKING ENTITY* 

* ♦ 
***************** 



*****F3 ********** 

* STORE DATA * 
*IN DIRECT ENTRY* 

* GSP09 * 

* * 
***************** 



****G3 ********* 
» * 

► GSP01 RETURN * 
k * 

*************** 



*****H1 ********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* * 

* BUILD FUNCTION * 

* * 
***************** 



*****J 1********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* SCALE * 

* X-AND Y-START * 

* * 
***************** 
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Chart FD. CTLTK - Control Light Pen Tracking 



**** A 1 ********* 
fc * 

► CTLTK * 
li * 

*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 
« * 
***************** 



.* *. NO 

. DSPIN=LCPOS .*... 
*.OR TRACK .* 



****C2* ******** 

* * 

* GSP01 ERROR * 

* 1 
*************** 





* YES 






* * 










. 






*FD * 
















* C2* 
















***** 










X 












NO 




.*. 










.*. 


Dl 

* 


*. 

* 










D2 *. 
* * 






*. YES 




.* 


END 




FULL 


.* 






* 










.SPECIFIED 



ct o a o x 

*****E1 ********** 

* STORE * 
*ADDRESS OF MODE* 

* SETTING * 

* SUBROUTINE IN * 

* GSP09 * 
***************** 



***** 
*FE * 
* G4* 



.*POINT/LINE *« 

OPT I ON 

♦ .ARGUMENT .* 

*. =0 .* 



NO .* PLOPT *. 
. ..*. ARGUMENT IN .* 
♦•RANGE 1-2.* 



*****D3 ********** 

* SET * 

* PLOPT IN GCOM * 

* TO POINT/LINE * 
♦OPTION ARGUMENT* 

* * 
***************** 



fr TKMOD * 

ARGUMENT IN 
f. RANGE 1-3.* 



*****E 5* ********* 

* * 

* SET TKMOD IN * 
, X* GCOM TO TRACK * 

* MODE ARGUMENT * 

* * 
***************** 



***** 
*FE * 
* Al* 



. 






***** 


X 






*FE * 


.*. 






* Al* 


F4 *. 






* * 


.* *. 




**** 


* 


.* TKMOD * 


NO 


* * 




*. ARGUMENT IN 




.X* C2 * 




*. RANGE 4-6.* 




* * 




♦ . .* 




**** 





CT020 

*****G2*** ******* 
*GSP03 /"KB* 

*-*-*-*-*-*-*-*-* 



* X*. ECCB FOUND 



♦ SEARCH FUNCTION* 

* * 
***************** 



CT300 X 

*****G4********** 

* SET W0RK1 TO * 

* ARGUMENT-4 * 

* INDICATE * 
*0=PROGRAM DRAW * 
*1=DELETE 2=END * 
***************** 



4****H1********** 

* * 
*NO0P BRANCH IN * 

* GSP09 TO USER * 
♦TRACKING ENTITY* 

* * 
♦♦*♦♦***♦*♦♦♦**** 



*****H2********** 

* STORE ADDRESS * 

* OF TRACKING * 

* ENTITY IN GSP09*X. 
♦AND MAKE BRANCH* 

* ACTIVE * 
***************** 



***** 
*FE ♦ 
* Al* 



ECCB 
FOR SUBR. 
. ENTITY 



**** 
. YES * * 
.*....X* B3 * 



* DISTANCE * 

ARGUMENT IN 
t. RANGE .♦ 



*****K2******+++^ 

* SET * 

* TKINC IN GCOM * 
X* TO DISTANCE *. 

* ARGUMENT * 

* * 
***************** 
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Chart FE. CTLTK - Control Light Pen Tracking (continued) 



***** 

*FE * 
* Al* 



* SAVE * 

* ADDRESS OF XY * 

* ARRAY * 

* * 

***************** 



WORK1 

= PROGRAM 

DRAW 



*****B2********** 
*ADD USER X AND * 
*Y DI SPLACEMENT * 
.X* TO ABSOLUTE X * 
♦AND Y IN GSP09 * 
♦STORE IN GSP09 * 
***************** 



CT405 X CT415 

*****C1********** 

* PUT * 
♦TRACKING SYMBOL* 

* X AND Y * 
♦COORDINATES IN * 

* USER ARRAY * 
***************** 



.♦ AXIS ♦ 

♦. ARGUMENT IN 
♦ .RANGE 1-5.* 



**♦♦ 

* ♦ 

♦ G3 *X. 
t ♦ 

♦ *** 



*♦♦♦♦ 
*FD * 
* C2* 



*****F1 ********** 

* * 

* STORE * 
♦AXIS INOICATOR * 

* IN GSP09 * 

* * 
*************♦♦♦♦ 



PROGRAM 


♦ 


YES 


DRAW 




*.... 


SPECIFIED 


♦ 




♦ . .♦ 






*. .♦ 






* NO 






X 






.*• 






D3 *. 






♦ *. 






ORDERS 


* 




STORED IN 




* . 


TEMP AREA 


* 




*. .* 






*. .* 






* YES 













.* INCREMENT *. 
.X*. DISTANCE LESS. 
*. THAN 63 .* 



**** 

X 
*****F3 ***♦♦♦♦*** 
♦GSP09/AUPDT * 

*—*-*-*-*-*-*-*-♦ 

* GENERATE AND * 
♦STORE ABSOLUTE ♦ 

* ORDERS IN ICA ♦ 
♦*♦«♦♦♦♦♦♦♦♦♦**** 



♦♦♦**F4*^******** 
♦GSP09/IUPDT ♦ 
*-*-*-♦-♦-*-♦-*-♦ 

♦ GENERATE AND ♦ 
♦STORE INCREMENT* 

* ORDERS IN ICA * 
***************** 



*****F5*++ ***♦♦♦♦ 
♦GSP02 /CH* 
♦-♦-♦-♦-♦-*-*-*-* 

* INCREMENT * 

* FUNCTION * 

* * 
*♦♦♦♦♦♦♦♦***♦♦♦** 



TKMOD * 

LINEAR OR 

CURVE .* 



.* TKMOD AND *. NO 
PLOPT .♦.., 
♦. ARGUMENTS. ♦ 



. X+ C3 * 



.♦. 


CT700 .*. 


CT705 


G2 ♦. 


G3 *. 


*****G4********** 


.♦ ♦. 


.♦ *. 


* ZERO TRACKING ♦ 


LAST ♦. YES 


.♦ END ♦. YES 


* ENTITY INDIC. * 








. .♦ 


X ♦.SPECIFIED.* 


X *TRACKING ENTITY* 


♦ . . ♦ 


♦ . .♦ 


. *AND TRCK SYMBOLS 


♦ . .* 


♦ . .* 


. ***************** 


* NO 


**♦♦ ♦ NO 


* . 




♦ ♦ . 


* * 




♦ G3 ♦ 


*FE * . 




♦ * 


♦ G4* 




**** . 
CT7IO X 


***** • 




X 




*****H3 ********** 


*****H4********** 




* STORE POINT ♦ 


* ZERO LCPOS * 




♦ OR LINE MODE ♦ 


* AND TRACK IN * 




♦ORDER IN GSP09 ♦ 


♦ DSP IN. SET ON * 




* AND TRACKING * 


♦ELEMENT END BIT* 




* ENTITY * 


♦ IN ECCB ♦ 




***************** 


♦♦*******♦♦♦♦♦♦♦♦ 



Kl *. 
.♦ AXIS *. 

AND ♦. 
DISTANCE . 
.ARGUMENTS.* 
♦. = O .♦ 



♦ . 



♦ NO 



♦STORE SKELETON ♦ 

♦ ORDERS FOR ♦ 
♦TRACK ROUTINES ♦ 

* * 
***************** 



*****K3* *♦*♦♦♦♦♦♦ 

♦ IF ♦ 

♦ DELETE. SET * 
*GSP09 TO PAINT *. 
♦TRACKING ENTITY* 

♦ ONLY ♦ 
***************** 



*****J4********** 



*********♦♦♦♦♦♦♦♦ 



****K4********* 

* 4 
•X* GSP01 RETURN * 

* * 
*************** 
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Chart FF. CVTTD - Convert Tracking Data 



****A1 ********* 
« * 

* CVTTD * 

* * 

*************** 



*****A3********** 

* * 

* STORE * 

* UNSCALED * 

* COORDINATE * 

* * 
***************** 



.X*. XY ARRAY 



*****B1 ********** 
>GSP01 /KA* 
*-*-*-*-*-*-*-*-* 

* SAVE * 

* REGISTERS + * 

* ARGUMENTS * 
***************** 



*,. END OF ENTITY.*. 



*****B4********** 



***************** 



****B5********* 
» * 

* GSPOI ERROR * 
» * 

*************** 



.* TRACK 
. OR ORIGIN 
*. ENTITY . 



**** 
) * * 
. ..X* A4 • 
* * 

**** 



*****C4********** 



***************** 



*****D1 ********** 
♦GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FOR ECCB* 

* * 
***************** 



*****04********** 

* * 

* STORE * 

* UNSCALED * 

* COORDINATE * 

* * 
***************** 



*****E2********** 

• * 

* SET TE RETURN * 
X* = TO ADOR OF *> 

* NEXT ORDER * 

• * 
***************** 



*****E4********** 



***************** 



*****F1 ********** 



***************** 



*****F2********** 

* SET * 

* AUDIT = TO * 
♦NUMBER OF CONV * 

* COORDINATES * 

* * 
***************** 



»****F4********** 



***************** 



*****G1 ********** 



***************** 



*****G2********** 

* SET SOURCE = * 
*TO TYPE OF DATA* 

* CONVERTED * 

* * 
***************** 



*****G4********** 

* * 

* STORE * 
.* UNSCALED * 

* COORDINATE * 

* * 
***************** 



*****H1 ********** 

* * 

* STORE * 

* UNSCALED * 

* COORDINATE * 

* * 
***************** 



****H2********* 

* * 

* GSP01 RETURN * 

* * 
*************** 



*****J 1********** 



***************** 



*****K1 ********** 



***************** 

. **** 

* * 
..X* A3 * 

* * 
**** 
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Chart GA. DFMSG - Define Message Entity 



****A1********* 

► DFMSG * 

► * 
*************** 



*****B1 ********** 
♦GSP01 /KA* 

*-*—*-*—*-*-*-*—* 

* * 

* SAVE FUNCTION * 

***************** 



M0020 X 

*****A2 ********** 
♦GSP02 /CH* 

*-*-*-*-*-*-*-*-* 

* * 

* STORE FUNCTION * 

* * 
***************** 



M0030 X 

*****B2********** 

* LOAD BLANK OR * 
♦NULL INDICATED * 

* BY * 
♦INITIALIZATION * 

* OPTION * 
***************** 



.* 
.* 
NO 

**** 

* * 
.X* F2 * 

* * 
**** 



* SET TO * 

* SPECIFIED * 
►CHARACTER SIZE * 

K * 

***************** 



MO 100 
YES .* 



*****D1 ********** 
♦GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* ♦ 
***************** 



ECCB FOUND 



♦ C2 ♦.X 



♦ ♦♦♦ 
M0060 X 

*****C2** ♦♦♦♦♦♦♦♦ 
♦GSP02 /CH* 
*-*-*—*_*-*-*-*-* 

* TEXT FUNCTION * 

* INITIALIZE * 
♦MESSAGE ENTITY * 
*♦♦♦♦**♦♦♦♦*♦**** 



♦ LOAD GNOP ♦ 

♦ * 

♦ ♦ 
***************** 



*****E2********** 
*GSP02 /CH* 
*-*-*-*-*-*-*-*-* 

* *. 
♦STORE FUNCTION * 

* * 
***************** 



*****E3 ********** 

* * 

* SET ELEMENT * 
. X*END IDICATOR IN* 

* ECCB ♦ 

* * 
***♦♦*****♦♦♦♦♦** 

***♦ 



.♦COUNT SIZE *. 
. OR INITIAL 
*• VALUE=0 .* 



*-*-*-*-*-*-♦-*-* 

* * 
♦BUILD FUNCTION * 

* * 
********♦♦♦♦***** 



*****H1 ********** 

* * 

* BUILD * 
♦CHARACTER MODE * 

* ORDER * 

***************** 



*—*-♦-*-*-*-*-*-* 

* ♦ 
♦STORE FUNCTION ♦ 

* * 
*♦♦♦♦♦**♦♦♦****** 

**** 

* * 

* Kl *.X 

* * 
**♦* 

M0010 X 

*****K1 ********** 



***************** 



****F2********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



**** 

COMMON 
M0105 CODING 

*****G2********** 
♦DSPYN /DD* 

*-*-*-*-*-*-*-*-* 

♦ FUNCTION ♦ 

♦ 1943 DISABLE ♦ 

♦ GSP07 ♦ 
♦♦♦♦♦♦♦********** 



*****H2********** 

* SET UPDATE * 

* INDICATOR SET * 

* ECCB TO * 

* UNCONTROLLED * 



************* 



*****J2** ******** 
♦UELMT /BD* 

*-*-*—*-*-*-*-*-* 

* UPDATE * 
♦AS UNCONTROLLED* 

* ENTITY * 
***************** 



****K2********* 
V * 

► RETURN * 

► * 
*************** 



***************** 



*****H3 ********** 

* * 

* SET INDIC IN * 
*ECCB TO MESSAGE* 

* ENTITY * 

* * 
***************** 



*****J3* ********* 
*DSPYN /DD* 

*-*-*-*-*-*-*-*-* 

* FUNCTION * 

* 1943 ENABLE * 

* GSP07 * 
***************** 



****K3** ******* 

. X* GSP0 1 RETURN * 
* * 

*************** 



.* ELEMENT *• NO 
♦.SMALLER THAN .♦... 
♦.SPECIFIED.* 



.♦.SMALLER 



M0110 X 

*****E4********** 

* SET * 

* ELSTA IN ECCB * 

* AND COUNT FOR * 

* TEXT FUNCTION * 

* * 
***************** 



M010S X 

*****F4** ******** 
*GA/G2 * 

*-*-*-*-*-*-*-*-* 

* UPDATE * 
♦POINTERS COMMON* 

* CODE * 
***************** 



*****G4**++^++++* 



*LOAD BLANK GSB *. 



* D5 *.X 



*♦♦♦ 
M0101 X 

*****D5********** 

♦ * 

♦ SET ELSTA IN * 
...X+ECCB TO EXCLUDE* 

♦ MODE ORDER * 



************** 



M010S X 

*****E5*** ******* 
*GA/G2 * 

*-*-*-*-*-*-*-*-* 

* UPDATE * 
♦POINTERS COMMONS 

♦ CODE ♦ 
***************** 



.♦.CURSOR ACTIVE. ♦ 



*****G5**** ****** 

* * 

* UPDATE CURSOR ♦ 

♦ ADDRESS LOAD ♦ 

♦ CURSOR GSB * 



***************** 


X 

♦ ♦** 




***************** 


**** * 




* 


. **** 


* * * 


C? 


* 


. * * 


* H4 *... * 






..X* A2 * 


* * . 


<*** 




* * 


**** X 






**** 


.*. LARGER 








H4 *. 






♦♦♦♦♦H5+++ ♦♦♦♦♦♦♦ 


.♦CURSOR *. 






♦ PUT * 


.*GSB OR NULL*. NO 






* CURSOR GSB OR * 










*. ELEMENT .* 






* IN MESSAGE * 


*. .* 






* ENTITY ♦ 


*. .* 






***************** 



*****J4********** 

* STORE * 

* GNOP ORDER AT * 

* NEW END SET * 

* ELSTA TO NEW * 

* END ♦ 
***************** 



*****K4******++** 

*GA/G2 * **** 

*-*-*-*-*-*-*-*-* * * 

* update *....x* f3 * 
♦pointers commons ♦ * 

♦ Code ♦ ♦♦♦♦ 
***************** 



Flowcharts 135 



Chart GB. MSGIN - Message Entity Initialization 



****A1********* 
t * 

► MSGIN * 
* * 

*************** 



MI 005 X 

***** A3 ********** 

* SET NAGAP AND * 

* LAGAP TO TEXT * 

* LIMITS SET * 

* MDLST TO * 
♦CHARACTER SIZE * 
***************** 



*****B1********** 
♦GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****B3 ********** 
♦GSP03 /KB* 

*-*-*_*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION GCOM * 

* TO ICA * 
***************** 



♦.CORVAL VALID 



*****C3 ********** 
*GSP02 /CH* 

*-*-*-*-+-*-*-*-* 

* * 

* TEXT FUNCTION * 

* * 
***************** 



*****DI********** 

* GSP03 /KB* 
*—*—*—*—*—*-*—*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



****D3 ********* 

* * 

* GSP01 RETURN < 

* * 
*************** 



ECCB FOUND 



ECCB FOR 
MESSAGE 
. ENTITY 



.* CHARACTER * 

♦.POSITION ARG. 

*. VALID •* 



.* COUNT *. 

•AND TEXT CODE. 

*. VALID .* 



****H2********* 
f * 

* GSPOI ERROR ■• 
» * 

***♦*****♦♦♦*** 



*****j !********♦* 

* SET * 

* POINTER TO * 

* ELSTA + CHAR * 
*POS. SET ICNTR * 

* TO COUNT * 
***************** 
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Chart GC. ICURS - Insert Cursor 



**** 

* A3 * 

* * 
**** 



****A1********* 
!< * 

► ICURS * 
K 4 

*************** 



*****B1 ********** 
*GSP0 1 /KA* 

*—*—*—*-*—*-*—*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1********** 
♦DSPYN /DD* 

*-*-*- *-*- *-*-*-* 

* * 

* FUNCTION 1943 * 

* * 
***************** 



*****E1 ********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

*SEARCH FUNCTION* 
* * 

***************** 



ECCB FOUND 



.* ECCB FOR 

K. MESSAGE 

*. ENTITY 



**** 
* * 

► HI *.X 



**** 
IC020 X 

*****H1 ********** 

* GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* SEARCH * 
♦FUNCTION OUTER * 

* ECCB * 
***************** 



****G2********* 

* * 

* GSP01 ERROR * 
» * 

*************** 



. * OUTER 

. ECCB IMAGE 
*. ENTITY 



NO .* IMAGE 

X....*. ENTITY 

♦.DISPLAYED. 



NO .* CHAR POS 
. ..*. IN MESSAGE 
*. ENTITY . 



♦ .CURSOR ACTIVE.*... 



* REMOVE CURSOR * 

* * 

* * 
***************** 



IC070 X 

*****G3 ******♦♦** 
♦EXCHANGE CURSOR* 
♦NULL GSBS WITH * 

♦ CHAR. GSBS ♦ 
♦UNTIL POSITION * 

* REACHED ♦ 
♦♦♦♦♦♦♦********** 



*****H3 ********** 

* INSERT * 

* CURSOR GSB IN * 

* IMAGE ENTITY * 

* * 
***************** 



IC125 X 

*****J3** *♦***♦** 
♦DSPYN /DD* 

*-♦_♦-♦-♦-*-*-*-* 

* * 

* FUNCTION 1943 * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦***** 



****K3 ********* 

* * 

* GSP0 1 RETURN * 

* * 
*************** 



.* OUTER *. NO 
.X*.ECCB SUBROUT..+... 
♦. ENTITY .* 



*♦** 

* * 
. X* HI * 

♦ * 
**** 
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Chart GD. RCURS - Remove Cursor 



**** A 1 ********* 

t * 

► RCURS * 

* * 

*************** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 
♦DSPYN /DO* 

*-*-*—*-*-*-*-*-* 

* FUNCTION * 

* 1943. DISABLE * 

* GSP07 * 
***************** 



* REMOVE * 

* CURSOR SET * 

* CMECB TO * 

* * 
***************** 



****F I ********* 

* * 

* GSP01 RETURN 4 

* * 
*************** 
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Chart GE. TLMSG - Translate Message Entity 



****AI********* 
f * 

* TLMSG * 

* * 
*************** 



*****A2********** 

* * 

* SET COUNT TO * 
*RLPRE SET INDEX* 

* TO RLPRE*2 * 

* * 
***************** 



***** A3 ********** 

* * 

* DECREMENT * 

* ELEMENT COUNT * 

* BY ONE * 

* * 
***************** 



**** 

* * 

* G2 * 

* * 
**** 

X 

. NO 



*-*-*-*-.*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



ELEMENT *. 
COUNT AND . 
.TEXT CODE.* 
*. VALID.* 



♦.CORVAL VALID 



*****Et ********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* * 
♦SEARCH FUNCTION* 

* * 
***************** 



*. ECCB FOUND 



TEXT CODE 1 



*****C2********** 

* * 

* * 
*SET COUNT TO 1 * 

* * 

* * 
***************** 



♦.ELEMENT COUNT. 



* INCREMENT * 

* IMAGE ENTITY *. 

* POINTER BY 1 * 

* * 
***************** 



*****D3 ********** 



.* ONE *. 
.* WORD *. YES * 

INTEGER .*........X*SET INDEX TO 

♦.PRECISION.* * 



***************** 



**** 
) * * 

. ..X* G2 * 

* * 

**** 



***************** 
**** 



**** 
TL115 X 

*****F3 ********** 

* * 

* GET GSB USING * 

* IMAGE ENTITY * 

* POINTER * 

* * 
***************** 



* INCREMENT * 

* IMAGE ENTITY *. 
» POINTER BY I * 

* * 
***************** 



.* ALL *. 
.♦CHARACTERS *. NO 
. TRANSLATED .*... 



*****D4********** 



.* ALL *. 
.♦CHARACTERS *. 
. X*. TRANSLATED . 



**** 

* * 
.X* F3 * 

* * 
**** 



*. .* 




***************** 


***************** 


♦ NO 












**** 


**** . 






* * . 


* * . 






* E3 *.X. 


* E4 *.X. 






* * . 


♦ ♦ . 






**** . 


**** X 


05 X 




TL110 X 


TLISO .*. 


*****E2********** 


*****E3 ********** 


E4 *. 


* 


* 


* * 


.* * . 


* SET 


* 


* SET * 


.* *. 










* I 


* 


* COUNT * 


*. .* 



TL170 

*****E5********** 

* OR BLANK * 

* WITH SAVED * 
. ..X* CHARACTER AND * 

* STORE SET * 

* SWITCH OFF * 
**♦♦♦♦***♦******* 



*****F4********** 

* * 

* LOAD AND * 
♦STORE BLANK IN *. 

* ARRAY * 

* * 
***************** 

**** 

* * 

* G4 *... 

* * . 
**** . 



************♦♦♦♦♦ 



.♦ ECCB FOR 
MESSAGE 
*. ENTITY 



*****H I ********** 

* * 

* SET ARRAY AND * 

* IMAGE ENTITY * 

* POINTERS * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦. TEXT CODE 1 .♦.. 



♦ ♦♦♦♦ 

♦ GF ♦ 

♦ A !♦ 



****G2*** ****** 

* * 

* GSP01 ERROR * 

* * 
*************** 



♦SAVED CHARACTERS 

♦ WITH NEW AND *> 
♦STORE IN ARRAY ♦ 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 



*****J2** ******** 

* INCREMENT ♦ 

* ARRAY POINTER ♦ 
*SET SWITCH OFF * 

* * 
***************** 



K***K2********** 



********* 



SWITCH ON 



*****J3********** 

* LEFT * 

* ADJUST * 

* CHARACTER AND * 

* SAVE. SET * 

* SWITCH ON * 
***************** 

. **** 

. * * 

..X* A3 * 



♦***G4********* 

♦ * 

♦ GSPOI RETURN * 

♦ * 
♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 



*H5********** 



»♦♦♦♦♦♦♦♦♦*♦♦♦* 



COUNTER 



***************** 



* INCREMENT * 

* ARRAY POINTER *X. 

* BY ONE * 

* * 
*****♦♦**♦♦♦♦*♦♦♦ 



..X+ E4 ♦ 
* * 

♦ ♦♦♦ 
TL155 

*****K 4** ******** 

* RESET COUNTER * 

* DECREMENT * 
. ..X* ARRAY POINTER * 

* BY INDEX * 

* * 
***************** 



COUNTER 



TL155 X 

*****K5* ********* 

* RESET * 

* COUNTER * 
♦DECREMENT ARRAY* 

* POINTER BY * 

* INDEX * 
***************** 



**** 

* * 
► A3 * 

* * 
**** 
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Chart GF. TLMSG - Translate Message Entity (continued) 



***** 

*GF * 
* Al* 



**** 

* * 

* A2 * 

* * 
**** 



***************** 



♦.ELEMENT COUNT. 



****A3********* 
t * 

* GSP01 ERROR * 
¥ * 

*************** 



TEXT CODE 4 .* 



* DECREMENT * 

* ARRAY POINTER * 

* BY INDEX * 

* * 
***************** 



*****CI********** 

* * 

* * 

* SET SWITCH ON * 

* * 

* * 
***************** 



* DECREMENT * 

* ARRAY POINTER * 

* BY INDEX * 

* * 
***************** 



* GET GSB USING * 

* IMAGE ENTITY * 

* POINTER * 

* * 
***************** 



*****D3 ********** 

* * 

* DECREMENT * 

* ELEMENT COUNT * 

* BY 1 * 

* * 
***************** 



***************** 



SWITCH ON 



♦.ELEMENT COUNT.*. 



****E4********* 

* * 
•X* GSPOI RETURN * 

* * 
*************** 



***************** 



*****G1 ********** 

* OR * 

* EBCDIC * 
♦CHARACTER WITH * 

* EBCDIC ZERO * 

* * 
***************** 



SWITCH ON 



*****H1 ********** 

* STORE * 

* IN ARRAY * 

* INCREMENT * 
♦MESSAGE ENTITY * 

* POINTER * 
***************** 



*****H3 ********** 

* * 

* OR BLANK * 

* WITH EBCDIC * 

* ZERO * 

* * 
***************** 



.* ALL *. 

.♦CHARACTERS 
. TRANSLATED 



**** 

* * 
.X* C3 * 

* * 
*•** 



*****J3 ********** 

* * 

* STORE * 

* CHARACTER IN * 

* ARRAY * 

* * 
***************** 



*****K 1*****+**** 

* * 

* DECREMENT * 

* ELEMENT COUNT * 

* BY I * 

* * 
***************** 
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Chart GG. BCNV - Basic Conversion Subroutine 



****A1********* 

X * 

!> BCNV * 

k * 

*************** 



*****B1********** 

*GSPOI /KA* 

*-*-*-*-*-*-*-*-* 

* SAVE * 

* FUNCTION 4 * 

* ARGUMENTS * 
***************** 



****C2********* 
* 1 

► GSP01 ERROR * 
^ * 

*************** 



**** 

* * 

* C2 * 

* * 
**** 



.* EBCDIC * 

. TO FLOATING 
*. POINT. .* 



.* FLOATING 

POINT TO 

*. EBCDIC. 



*****E2********** 

* CONVERT * 

* CONTENTS OF * 
•X*INPUT ARRAY TO * 

* ACCEPTABLE * 
♦CONVERSION FORM* 
***************** 



*****F 2* ********* 
*FBTD * 

*—*—*—*-*-*-*-*-* 
<♦ CONVERT * 

♦ FLOATING POINT * 

* TO EBCDIC * 
***************** 



E3 *. 




*****E 4* ********* 


.* *. 




*FDTB * 


.* CONTENTS *. YES 




*-*-*-*-*-*-*-*_* 








*. ARRAY .* 




* EBCDIC TO * 


*. VALID.* 




♦FLOATING POINT * 


*. .* 




***************** 


* NO 






**** 






* * 






..X* C2 * 






* * 






**** 






*****F3********** 






* * 




**** 


* STORE FBTD * 


* 


* 




X* 


K3 * 


* OUTPUT ARRAY * 


* 


* 


* * 




***♦ 



*****E5* ********* 

* * 

* STORE OUTPUT * 
<* IN USER'S * 

* OUTPUT ARRAY * 

* * 
***************** 



* K3 * 

* * 
**** 



***************** 



.♦CONTENTS OF*. 
. INPUT ARRAY . 
*. VALID. .* 



*****G3 *****♦♦+♦♦ 

* CONVERT TO A * 
<* ONE WORD *. 

* INTEGER VALUE * 

* ♦ 
***************** 



*****G4*** ♦♦****♦ 



***************** 



*****H1********** 
♦FLOAT ♦ 

*—*—*—*—*—*—*—♦—* 

* CONVERT * 
♦INTEGER TO REAL* 

♦ VALUE ♦ 
♦*********♦♦♦*♦♦♦ 



♦♦♦♦♦J !♦♦♦♦****** 

♦ FBTD * 
*—*—*—*—*—♦-♦—*-* 

♦CONVERT REAL TO* 

* EBCDIC ♦ 
***************** 



*****K I ********** 

* CONVERT TO * 
♦INTEGER EBCDIC ♦. 

* FORMAT * 

* ♦ 
***************** 



*****K2* ********* 

* STORE FBTD * 

* OUTPUT IN * 
•X* OUTPUT ARRAY *. 

* (VALID TEXTCODE* 

* FORMAT) * 
***************** 



****K3 *****♦♦♦♦ 
* * 

X* GSPOl RETURN * 

X * * 

. *************** 

**♦♦ 

* * 

* K3 * 

* * 
**** 
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Chart HA. GSP07 - Cursor Direct Entry Subroutine 



* * 

* GSP07 * 

******** ******* 
FROM 
DSPYN 



► KEY *. 
ATTENTION = . 
*. ADVANCE .♦ 



KEY * 
ATTENTION = 
•BACKSPACE.* 

*. .* 
*. •* 
* NO 


. YES 


.* 


CURSOR IN *. 




* 


.POSITION . * 
*. •* 

*. .* 
* YES 

. ♦ *** 

. * 


• 








..X* F2 

* 


X 

• *. 

Dl *. 

.* * 

KEY 
ATTENTION = 


* 


. YES 


G7050 

.* 


♦ ♦♦* 
.*. 

D2 *• 
.* *. 
LAST *. 
MESSAGE 



*****C3 ********** 

* * 

* MOVE CURSOR * 
•X* GSB BACK ONE *. 

* POSITION * 

* * 
***************** 



*****D3 ********** 

* * 
*MOVE CURSOR TO * 

. X* START OF NEXT * 
♦MESSAGE ENTITY * 

* * 
***************** 



*****£!***♦♦♦**** 

* * 
♦BUILD CHARACTER* 

* GSB STORE IN * 

* MESSAG ENTITY * 

* * 
***************** 



*****E2* ********* 

* * 
♦MOVE CURSOR TO * 

* START OF THIS * 
♦MESSAGE ENTITY * 

* * 
***************** 



CURSOR *. 

IN LAST 

.POSITION .* 



*****F2*** ******* 

* SET * 

* ISSDE IN GCOM * 
<* TO INDICATE *. 

* PROCESS BY * 

* GSP07 * 
*****♦♦♦♦♦****♦♦♦ 



****F3 **♦*****♦ 

* 4 

* RETURN * 



*****G1 ********** 

* * 

* ADVANCE * 
♦CURSOR GSB ONE *« 

♦ POSITION * 

♦ * 
***************** 
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Chart HB. GSP08 - Light Pen and Order Controlled Direct Entry Subroutine 



****A1 ********* 
* * 

► Gspoa * 

► * 
*************** 



* ORDER 

CONTROLLED 
*. ATTENTION. 



TRACK *. 

SYMBOL . 

.INTERRUPT.* 



*-*-*-*-*-*-*-*-* 

* * 

* VERIFICATION * 

* SUBROUTINE * 
***************** 



*****C3 ********** 
*TRKDE /HC* 

*-*-*-*-*-*-*-*-* 

* UPDATE * 
♦TRACKING SYMBOL* 

* * 
***************** 



**** 



G8510 X 

*****D2********** 
■ * SET * 

*. NO * ISSDE TO * 

• * X*INDICATE DIRECT* X* 

• * X * ENTRY * X * 

* PROCESSING * 

. ***************** 
**** X 



* 02 * 



.* DETECT *. YES 
*. IN TRACKING .*.... 
*. ENTITY .* 



***************** 



* ZERO IELCV * 

* AND ISBCV *X 

* IN GCOM * 

* * 
***************** 



**** 

* * 

* D3 * 



****D3 ********* 
* 
RETURN * 

* 

*************** 

TO-DSPYN 



* FIND ICA * 
X* FROM ORDER * 

* ADDRESS * 

* * 
***************** 



•*** 


X 




G872S 


.*. 

F3 *. 
.* * 




YES . 


* 






CONTROLLED 






*. ENTITY 


* 



•VERIFICATION*. YES 
. SUBROUTINE .*.... 
*. LOADED .* 



SCAN 

PATTERN 

.INTERRUPT. 



*-*-*-*-*-*-*-*-* 



***************** 



G8740 

*****D4********** 

* FIND ECCB * 

* FROM BRANCH * 
..X* ADDRESS TO * 
. * SUBROUTINE * 
. * * 
. ***************** 



X COMMON 
*****E4********** 
*G8741 /DS* 

*-*-*-*-*-*-*-*-* 

* LIGHT * 

* PEN DETECT IN * 

* TRACK DE * 
***************** 



* B5 *.X. 

* * . 
**** 

G8020 X 

*****B5*** ******* 

* SET ISSDE * 

* TO INDICATE * 

* USER ORDER * 

* CONTROLLED * 

* INTERRUPT * 
***************** 



G8030 X 

*****CS******* 

* SET 

* DSPIN TO 

* INDICATE 

* DISPLAY 

* TERMINATED 
************** 



► LINKAGE * 
IN TRACKING 

► . ENTITY .* 



*****E5* ********* 

* * 

* NO-OP * 

* BRANCH TO * 

* SUBROUTINE * 

* * 
***************** 

. **** 

* * 
..X* D2 * 

* * 
**** 



****F5********* 

* RETURN » 

* TO CODING * 

* * 
*************** 



*****G 1 ********** 



***************** 



* Jl *.X. 

* * . 
**** . 

G8610 X 

*****J 1********** 

* SET ISSDE TO * 
♦INDICATE LIGHT * 
*PEN ATTENTION. * 

* NO-OP SYSTEM * 

* DISPLAY * 
***************** 



G8030 X 

*****K 1********** 

* RESTORE ICA * 

* TO ACTIVE. * 

* SET DSPIN TO * 
♦INDICATE TMDSP * 

* * 
***************** 



G8620 

*****H2********** 

* SET ICA AND * 

* IMAGE ENTITY * 
. ..X* CORRELATION * 

* VALUES IN * 

* GCOM * 
***************** 



.* 



J2 



*. 



GSB TO 

CHARACTER 

. STROKE 

*.SUBR..* 

*. .* 

* YES 



* STORE * 

* CHARACTER * 

* DATA IN GCOM * 

* * 
***************** 



* H3 *.X. 

* * . 
**** . 

G8730 X 

*****H3* ******* 



***************** 





G4 *. 


*****G5********** 




.* *. 


* SET * 




* *. NO 


* IELCV TO * 










*. ENTITY .* 


*NEXT OUTER ECCB* 




*. .* 


* * 




*. .* 


***************** 


t* 


* YES 




* 


. **** 


**** . 


\ * 


. * * 


* * . 




..X* D4 * 


* H5 *.X. 


* 


* * 


* * . 




**** 


**** X 


G8770 




G8760 .*. 


*****H4********** 


H5 *. 


* 


* 


.* *. 


* 


SET IELCV. * 


YES .* *. 


..X* 






. * 


INCECV * 


*. ENTITY .* 




* 


*. . * 


• ***************** 


*. . * 


**** 


• 


* NO 


* 


**** 




H4 * 


* * 




* 


..X* Jt * 




**** 


* * 






**** 


X 


G8792 




• *• 


*****J4********** 


JS *. 



* ZERO ISBCV. * 
<*STORE CORVAL IN* 

* CECV * 

* * 
***************** 

. **** 

. * * 

..X* Jl * 

* * 

**** 



*****K4********** 

* FIND * 

* ECCB FROM * 
♦BRANCH ADDRESS *X. .......* 

* TO SUBROUTINE * * 



X COMMON 
*****K5* ********* 
♦G8741 /D5* 



***************** 



LIGHT * 

* PEN DETECT IN * 

* TRACK DE * 
***************** 
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Chart HC. GSP09 - Scanning Pattern and Tracking Symbol Direct Entry Subroutine 



**** A 1 ********* 
f * 

► TRKDE * 

► * 
*************** 



.* *• **** 

.* CTLTK *. YES * * 
*. INTERRUPTED ,*....X* C4 * 



*****C1 ********** 

* * 

* COMPUTE * 

* DISTANCE PEN * 

* HAS MOVED * 

* * 
***************** 



*****D1 ********** 

* * 

* COMPUTE * 
♦AVERAGE X AND Y* 

* INCREMENT * 

* * 
***************** 



FREE AXIS 



► SET Y * 
I" DISPLACE TO *. 
K ZERO * 

% ♦ 

***************** 



* SET X * 
<* DISPLACE TO *. 

* ZERO * 

* * 
***************** 



*SET Y DISPLACE * 
,X* TO POSITIVE X *. 

* DISPLACE * 

* * 
***************** 



*****K 1********** 

* * 
♦SET Y DISPLACE * 

* TO NEGATIVE X *. 

* DISPLACE * 

* ♦ 
***************** 



.* DISPLACE *. 
t. AND Y 

♦•DISPLACE .♦ 
*. = .* 



♦SET START TIMERS 

♦ IN SYSTEM ♦ 

♦ DISPLAY TO ♦ 

♦ NO-OP ♦ 
*********♦♦+♦♦♦** 



*****C3 +♦♦♦♦♦♦♦♦♦ 

* SET MBA * 

* ORDER IN * 
♦TRACKING SYM TO* 

* NEW POSITION * 

* ♦ 
***************** 



*****D3 ********** 

* SAVE NEW * 

* ABSOLUTE * 

* POSITION OF * 
♦TRACKING SYMBOL* 

* ♦ 
***************** 



*****E3 ********** 

* COMPUTE AND * 

* SAVE UNSIGNED * 
♦MAGNITUDE OF X * 

* AND Y * 

* DISPLACEMENT * 
***************** 



, *X OR Y *. 



*****A4*** ******* 

* ♦ 

* RESET START * 
.X*TIMER IN SYSTEM* 

* DISPLAY * 

* ♦ 
***************** 



* STORE ADDRESS * 

* OF TRACK IN * 

* NOADR IN GCOM ♦ 

* ♦ 
***************** 



•LCPOS. LOCNO.. YES 
LOCPN .*.... 
♦INTERRUPTED* 



♦ C4 *.X 



♦ ♦♦♦ 
EXIT1 X 

*****C4********** 

* SET ISSDE TO * 

* INDICATE GSP ♦ 

* PROCESSED BY ♦ 

* DIRECT ENTRY * 

* SUBROUTINE ♦ 
***************** 



****D4********+ 
* ♦ 

t RETURN * 

► * 

*************** 

TO GSPOfl 





**** 




* * 




* F4 * 




* * 




**** 




X 


BUFOK 


.*. 




F4 *. 




• * ♦ 




♦ TRACK 


*• 


MODE=CURVE 



LPSCN 

*****B5* ********* 

* STORE X AND Y * 

* COORDINATES ♦ 
. ..X+ FROM MBA IN * 

* TRACKING * 

* ROUTINE * 
***************** 



♦♦***CS* ********* 

* TURN * 

* OFF LOCND, * 

* LOCPN, EXEC * 

* INDICATORS IN * 

* DISPN * 
***************** 



*****D5********** 

* SET LINKS TO * 

* IMAGE ENTITY * 

* AND TRACKING * 

* SYMBOL IN SYS * 

* D ISP TO NOP * 
***************** 



*****E5********** 

* * 

* INDICATE * 
....♦PRIORITY LIGHT * 

* PEN ATTENTION * 

* ♦ 
***************** 



.* MAGNITUDE *. 

♦.GREATER THAN . 

♦.INCREMENT.* 



.♦OUTPUT ♦. 
.♦ *. YES 

*. MO DE= ABSOLUTE.*.... 



*****G5********** 

* * 

* STORE * 
. X*ORDERS IN TEMP * 

* AREA ♦ 

* * 
***************** 

. **** 

* * 
..X* C4 * 

* * 
**** 



* PUT ABSOLUTE * 
.X+ORDER IN TRACK * 

* ENTITY * 

* * 
***************** 

I **** 

. * * 
. »X* C4 * 
* * 
**** 



*****K3 ***♦♦***** 

* SET * 

* TRACKING SYM * 

* SUBR TO *. 

* INDICATE ICA * 

* FULL * 
***************** 



**** 

* * 
.X* C4 * 

♦ * 
**** 



* PUT INCREMENT * 
♦ORDER IN TRACK * 

* ENTITY *■ 

* * 
***************** 



**** 

* * 

* C4 * 

* * 
**** 
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Chart HD. GSP11 - Scan Index-Controlled Entity 



****A1********* 
» * 

» GSP 11 * 

*************** 



GSB 
TABLE 
BUILT 



INIT X 

*****C1 ********** 

* GET ADDRESS * 

* OF FIRST NON- * 

* OVERHEAD * 

* ORDER. SET * 

* COUNTER TO 1 * 
***************** 



L00P2 

*****B2********** 
* BUILD * 
♦G-WORD TABLE OF* 
...X*GSB. TO CURSOR * 
*AND CURSOR NULL* 



***************** 



Dl — *. *****D2********** 

.* *. * SET * 

.* DETECT *. YES * ATTENTION * 

*. ORDER IN .*........X*ADDRESS TO GSB * 

♦SUBROUTINE.* * TO SUBROUTINE * 

*. .* * * 

*. .* ***************** 

* NO . 
**** . . 

* * . . 

* El *.X. 

* * .X. 

**** X 

LOOP .*. DONE 

El *. *****E2********** 

.* *. * * 

.* DETECT *. YES * STORE COUNTER * 

*. ORDER .*. X* IN IDXCT IN *. 

*. REACHED •* * GCOM * 

*. .* * * 

*• .* ***************** 

* NO 



****E3 ********* 
l< * 

« RETURN * 

« * 

*************** 



.* ENTITY *. 

ORDER= 

♦INCREMENTAL* 



• 


. **** 




. * 




..X* F4 




* 


X 


**** 


.*. 


ABSXY .*. 


Gl *. 


G2 *. 


* *. 


.* *. 


ENTITY *. YES 


•* BEAM *. 






ABSOLUTE .* 


*. .* 



*****F3********** 



***************** 



*****G3 ********** 



INC1 








*****F4********** 




* 




* 


**** 


* 


GET 


* 


* 




NEXT ORDER 


*•. 


..X* El 


X * 


ADDRESS 


* 


* 


* 




* 


**** 


. ***************** 




**** 








* ***** 






* F4 * 


* 






* * 


G4 *... 







***************** 



***** * . 

**** . 

ABS1 X INC2 

*****G4********** 



* GET * 
<* NEXT ORDER *. 

* ADDRESS * 

* * 
***************** 



**** 

* * 
.X* El * 

* * 
**** 



.* GRAPHIC *. YES .* GSB TO *. 

*. SHORT BRANCH .*....... .X*. CURSOR OR . 

*• .* +CURSOR NULL* 



**** 

* * 
. X* F3 * 

* * 
**** 



* YES 


. **** 


. * 


..X* F4 


* 


**** 


.*. 


J2 *. 


*. 


DIRECT *. 


BRANCH . 



***************** 



*****J4********** 

* * 

* GET * 
<* NEXT ORDER *• 

* AORESS * 

* * 
***************** 





*• **** 




*. YES * 


SVRT 


.*.... X* G4 


ORDER 


.* * 
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Chart JA. IERRS - Identify Errors 



**** A 1 ********* 
» 4 

► IERRS * 

» * 

*************** 



*****B1 ********** 



***************** 



* GET ERROR * 

* RETURN VALUE * 

* FROM GCOH * 

* * 
***************** 



*****C1 ********** 

* * 
♦GET ID OF LAST * 
*GSP SUBROUTINE * 

* FROM GCOM * 

* * 
***************** 



* CONVERT TO * 
*2 DIGIT DECIMAL* 

* VALUE * 

* * 
***************** 



«****D1 ********** 

* * 

* . CONVERT * 

* ID TO EBCDIC * 

* VALUE * 

* * 
«<**** ************ 



* CONVERT * 

* DECIMAL TO * 

* EBCDIC * 

* * 
***************** 



H****E1 ********** 
ft * 

a GET * 

"CUMULATIVE WORD* 
« FROM GCOM * 

* * 

***************** 



• IE 150 X 

*****E2********** 
*WRTYZ * 

*-*-*-*-*-*-*-*-* 

* PRINT * 

* IERRS MESSAGE * 

* * 
***************** 



IE010 X 

*****F1 ********** 

* CONVERT TO * 
>> EBCDIC (0 OR 1)* 

* TO CORRESPOND * 

* WITH BIT * 

* SETTINGS * 
4**************** 



*****F2********** 

* * 

* HOUSEKEEPING * 

* FUNCTIONS * 
♦RESTORE + MAKE * 

* REUSABLE * 
***************** 



*****G1 ********** 

* GET * 

* VALUE OF * 

* ARGUMENT FROM * 

* ENTRY WORD * 

* * 
***************** 



****G2* ******** 
X * 

* RETURN * 

» 4 

*************** 



* CONVERT TO * 

K4 DIGIT DECIMAL* 
■» VALUE * 

t * 

***************** 



* CONVERT A * 

* DIGITS TO * 

* EBCDIC VALUE * 

* * 
***************** 
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Chart KA. GSP01 - GSP Inner Subroutine 1 



**** A 1 ********* 
► * 

* GSPOl * 
Y * 

*************** 



*****B1 ********** 

* * 

* SAVE RETURN * 

* ADDRESS AND * 

* ARGUMENT * 

* * 
***************** 



Y HAS 

GSP IN BEEN 
Y. CALLED . 



*****D1 ********** 

* * 
*STORE GSPOl ID * 

* IN IDINT. * 
*SET GSP STATUS * 

* SWITCH * 
***************** 



G1080 

*****C2********** 

* LOAD * 

* /FFFF AND * 
. ..X* ADDRESS OF * 

♦CALLING BRANCH * 

* TO GSPOl * 
***************** 



*****D2********** 



***************** 



****E2********* 

Y EXIT TO * 

Y SUPERVISOR * 

Y * 
*************** 



**** 

Y 1 

Y C5 4 

Y * 
**** 



*****F1 ********** 

* * 

* SAVE INDEX * 

* REGISTERS * 

* IN GCOM * 

* * 
***************** 



*****H1 ********** 



***************** 



G1005 X 

*****J 1********** 

* STORE CALLING * 

* SUBROUTINE ID * 

* IN IDGSP. * 
♦STORE MAINLINE * 

* NSI IN MLRET * 
***************** 



• *• 

Kl *. 

.* ANY *. 

.* ARGUMENTS *. 

*. IN MAINLINE . 

*. CALLING .* 

*. SEQ .* 

*. .* 

* YES 



* STORE * 

* ARGUMENTS IN * 

* GCOM * 

* * 
***************** 

**** 

* * 

* C3 *.X 



• X* ZERO REG 2 



***************** 



*****D3** ******** 

* * 
♦INITIALIZE REG * 

* 2 WITH ACTIVE * 

* ICA ADDRESS * 

* * 
***************** 



G1020 




♦ . 




C5 


♦ . 




.* 


*. 


NO .* 


ERROR *. 


.. .*. 


FUNCTION •* 


. * 




.* 




*. 


.* 


X 


* 


. ♦ 


**** 




* YES 


* 






H5 * 






* 






**** 






G1030 




X 


♦♦♦♦♦D5* ********* 



*****E3** ******** 

* * 

* INITIALIZE * 
*REG 1 WITH GCOM* 

* ADDRESS * 

* * 
***************** 



*****F3 ********** 

* * 

* ZERO * 
♦RETEV AND IDGSP* 

* IN GCOM * 

***************** 



****G3 ********* 
» * 

Y RETURN * 

Y * 
*************** 



****H3* ******** 

* ♦ 
♦RETURN TO GSPIN+X. 

* * 
*************** 



*****E4********** 
♦ERROR PROCESS * 
*-*-*-*-*-*-*-*-* 



***************** 



* STORE ERROR * 

* CODE IN RETEV ♦ 

* OR INTO CUMEV * 

* * 
***************** 



.* ERROR *. 
.♦PROCESSING *. 
> SUBROUTINE .4 



* DISPLAY /FFFF * 
♦AND IDGSP WITH * 

* RETEV WAIT * 

* * 
***************** 



*****G5********** 



G1060 
YES .* 



* DISPLAY * 
X.. ,.*CUMEV AND GSPEC* 

* WA I T * 

* * 
***************** 

**** 

* * 

* H5 *... 



• *. 



*****J4********** 

* RESTORE * 

* INDEX * 
♦REGISTERS. ZERO* 

* GSP STATUS * 

* SWITCH * 
***************** 



****K4********* 

Y RETURN * 

Y TO MAINLINE * 

Y * 
*************** 



*****J5*** ******* 



***************** 
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Chart KB. GSP03 - GSP Inner Subroutine 3 



**** 

* * 

♦ A2 ♦ 

* * 
**** 



♦ *** 
♦ * 
► A5 * 

**** 



**** A 1 ********* 

* * 

* GSP03 * 

* * 
*************** 



|c****Bl ********** 
► * 

* SAVE INDEX * 

* REGISTERS AND * 

* ACCUMULATOR * 
» * 
***************** 



.* AREA * 
• X*. AVAILABLE IN 
*. ICA .* 



*****B2********** 

* * 

* REMOVE ECCB * 
♦FROM AVAILABLE * 

* CHAIN * 

* * 
***************** 





* 


YES 


* SET CORRVAL * 


INITIALIZE 




♦ .... 


*ELSTA AND ELEND* 


. OPTION 






* IN NEW ECCB * 


♦ . .* 






* * 






X 


***************** 


* NO 




**** 

* * 

* A5 * 

* * 




. 




**** 





*. ACTIVE ICA 



NCBAU = 





.♦BUILD 


* E4 * 




Fl *. 


* * 




.* *. 


**** 




■* CURRENT * 


YES 


* 


■ECCB ADDRESS 

♦ . =0 •* 
*. .* 


*.... 




*. •* 


X 




* NO 


**** 

* * 

* A2 * 

* * 
**** 




X 






• ♦• 


G3010 .*. 




Gt *. 


G2 *. 




.* *. 


.* *. 




.* CURRENT *. YES .* NEW ECCB *• YES 


* 


■ECCB = SUBR. ...... ....X*. = SUBR. .*... 




*. ENTITY .* 


*. ENTITY .* 



. * AREA * 
.AVAILABLE IN 
*. ICA .* 



G3090 X 

*****C3 ********** 
♦GSP04 /BH* 

*-*-*-*-*-*-*-*-* 
* PUSH-DOWN * 



***************** 



G3090 X 

*****B4********** 
*GSP04 /BM* 

*-*-*-*-*—*-*-*-* 
* PUSH-DOWN * 



***************** 



G3050 X 

*****C4* ********* 
♦DECREMENT EAVA * 

* BY 4 SET * 
♦CORRVAL. ELSTA * 

* AND ELEND IN * 

* NEW ECCB * 
***************** 



G3060 X 


G307I .*. 


*****D3 ********** 


D4 * 


♦DECREMENT LAGAP* 


.* 


* BY 4 SET * 


YES .* 


♦CORRVAL. ELSTA * 




* AND ELEND IN * 


• *• 


* NEW ECCB * 


. *. 


***************** 


• *• •* 



* 


UPDATE 


♦ 


*CCB 


AND ECB IN 


♦ 


* 


GCOM 




* 




♦ 


***************** 


**** 








♦KB 


< 






* F3 


*.X 






♦ 


t 






**** 








G3085 


X 




*****F3********** 


* 




♦ 


* 


RESTORE 


♦ 


..X* 


REG I 


STERS 


♦ 



E4 ♦.X 



**** 
G3072 X 

*****E4*+******** 

* UPDATE * 
♦FORWARD POINTER* 
*OF NEXT CONTROL* 

* BLOCK AFTER ♦ 

* UPDATE ♦ 
***************** 



***************** 



****G3* ♦♦♦♦♦*♦♦ 
» * 

RETURN * 

» ♦ 

♦*♦*♦♦♦******** 



* STORE HEX 512 * 
UN LGXI . LGYI . * 

* LCXI. LCYI. ♦ 

* * 
*******♦♦♦♦*****♦ 



^♦♦♦B5^* + *^^^** 

* * 
♦STORE HEX FS12 * 
*IN LCXR.LCXR+1 .* 

* LCYR. LCYR+1 ♦ 

* ♦ 
♦**♦**♦♦♦♦♦♦****♦ 



(<****C5*** ******* 

* * 

* STORE I N * 
♦LCXR+2, LCYR+2,* 

* MDLST, OPLST. ♦ 

* ♦ 
*♦♦♦♦♦♦♦♦♦******♦ 



* F3 ♦ 

♦ * 
**** 



* F5 
* 
**** 



* NEW 


* 




YES 


.* 


♦ . 


ECCB = DELETE 


* 


...* 


SEARCH OPTION.* 


*. 


.* 






* 


.♦ 


*. •* 










♦ . .* 


*• •* 






X 




♦ . .* 


* YES 






***** 
*KC * 
* Al* 

♦ * 




* NO 



.♦CURRENT*. 
* ECCB= 

CONTROLLED 
*. ENTITY 



* H2 *.X. 



.* NEW= *. 
. YES .INDEX, CONTRL. 

.*........ X*.LEVEL-CONTRL . 

*. ENTITY .* 



**** 



. * CURRENT *. YES 
.ECCB = INDEX ...... 

*. ENTITY .* . 



* SET ON EELMT * 

* BIT IN INDIC * 

* UPDATE ECB IN * 

* GCOM * 

***************** 



G3260 

•****H4********** 

♦ TRANSFER ♦ 
♦GENX - LSTOP IN* 
*ICA PREFACE TO *X 
♦LGXI - OPLST IN* 

♦ GCOM ♦ 
♦♦♦♦**********♦♦♦ 



NO .♦ 
. ..*. TRANSFER 
. *. OPTION 



♦ KS ♦ 




. 


♦ ♦ 






♦ ♦♦♦ 




X 


G3230 




♦TRANSFER 




H5 


♦ . 




♦ 


*. 


YES .♦ 




♦ . 





♦. TO GCOM .* 



.♦CURRENT*. 
.* ECCB = 
. UNCONTR. 
*. ENTITY 



,* CURRENT * 
♦.ECCB = IMAGE 
*. ENTITY .* 



.* NEW ECCB *. YES 
t. - IMAGE ...... 

*• ENTITY .* 



.♦ NEW ECCB 
►. = TRACK 

♦ . ENTITY 



. * CURRENT * 
.ECCB = LEVEL- 
*CONTROLLED.< 



* NEW 
ECCB= 
SUBR. 
ENTITY 



**** 

• NO * * 

.*....X* K5 * 

♦ 4 

♦ *♦♦ 



.♦ NEW ♦. 






♦ ECCB= 


♦ 


NO 












♦CONTROLLED 


♦ 




X 


♦ . .♦ 








♦ . .♦ 








♦ YES 






**** 
* 
* KS 


X 






* 


♦♦♦♦ 






***♦ 



G3240 X 

*****J5**** ***♦*♦ 

♦ TRANSFER ♦ 

♦ LGXI-OPLST IN * 

♦ GCOM TO ♦ 

♦ GENX-LSTOP IN ♦ 

♦ ICA PREFACE ♦ 
****♦♦♦♦♦♦♦♦♦♦♦** 

. **♦♦ 

. * ♦ 

..X* F3 ♦ 
♦ ♦ 

♦ ♦♦♦ 



****K5*** ♦♦♦**♦ 
t * 

* GSP01 ERROR < 
k * 

♦♦*********♦♦♦♦ 
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Chart KC. GSP03 - GSP Inner Subroutine 3 (continued) 



***** 

*KC * 
* Al* 



* GET FIRST * .1 

* ECCB ON CHAIN * .......... X* . 

♦AFTER ICA ECCB * X * 



***************** 

**** 

* * 

* Bl *... 

* * . 
**** . 

X 
*****B1********** 

* * 
♦DECREMENT ECCB * 



INPUT 
TYPE = 
CORRVAL 



**** 

* * 
f A2 * 

* * 

**** 



.* ECCB *. 
NO .* CORRVAL = *» 
♦POINTER TO NEXT*X. .......*. INPUT CORRVAL.* 

♦ ECCB ON CHAIN * *. .* 

* * *. .* 
***************** *. .* 



.* ECCB *. 

POINTER = 

*.LAST ECCB.* 



**** 
60163 



•INPUT TYPE =*. YES 
♦ADDRESS WITHIN.*.... 
♦. ELEMENT .* 



.♦SEARCH ♦. 
.♦FUNCTION = ♦. YES 
♦.ECCB ADDRESS ...... 



♦ D2 +.X 



♦ ♦♦♦ 
G3190 X 

*****D2* ********* 

♦CONVERT FORWARDS 
♦POINTER IN ECCB* 
♦TO ECCB ADDRESS* 
♦ ♦ 

***************** 



*♦♦♦ 




♦ ♦ . 




♦ El *.X. 




♦ * . 




**** . 


X 


G3165 X 


.♦. 


*****E1 ********** 


E2 *. 


* * 


.♦ * 


* ZERO * 


YES .* 


* ACCUMULATOR *X... 





.*INPUT TYPE *. 
= ECCB . 

*. ADDRESS .♦ 



C INPUT 

ADDRESS IN 

N. ELEMENT . 

♦.AREA .* 



.* ECCB *• 
.* ADDRESS = ♦. NO 
♦. INPUT ECCB .♦... 
♦. ADDRESS .♦ 



B4 



♦ . 



*****BS* ********* 
.* *. * * 

.* ELSTA *. YES * STORE NEW * 

♦ •GREATER THAN .♦.. X*ELSTA AND ECCB * 

♦. LAST .♦ * ADDRESS * 

♦.ELSTA.* * * 

*. .* ***************** 

* NO 



♦****D3 ********** 

* LOAD ♦ 

* ACCUMULATOR * 

* WITH ECCB * 

* ADDRESS ♦ 

* * 
***************** 



***** 
*KB * 
* F3^ 



**** 

* * 

* Bl * 

* * 
**** 



***************** 



***** 
♦KB * 
♦ F3* 



FORWARD *. YES 
POINTER = .*.... 
.SPECIFIED.* 
♦.ECCB .* 



*****G2********** 

♦ * 

♦ GET ♦ 

♦ NEXT ECCB ON ♦ 

♦ CHAIN ♦ 

♦ * 
***************** 



* SEARCH 

FUNCTION 

*. PRIOR 

*.ECCB . 



*****G3 ********** 

* LOAD * 

* ACCUMULATOR * 
♦WITH ADDRESS OF* 

* PRIOR ECCB * 

* * 
***************** 



***** 
*KB * 
* F3* 



•X*. DELETE ECCB 



. YES * INITIALIZE * 

.* X*SPECIFIED ECCB * 

X *WITH FOUND ECCB* 
* ADDRESS * 
***************** 



**** 

* * 
■X* Al * 

* * 
**** 



G4 *. 

.* SPEC. *. 

.* ELEMENT * 

•WITHIN FOUND 

*. ECCB .* 

*. RANGE.* 

*. .* 

* YES 



*****H4** ******** 

* LOAD * 

* ACCUMULATOR * 
*WITH ADDRESS OF* 

* FOUND ECCB * 

* * 
***************** 



***** 
♦KB * 
* F3* 
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APPENDIX A: CONTROL BLOCK FORMATS 



This appendix shows the formats of the control blocks and communica- 
tions areas used by the GSP subroutines. Initial hexadecimal values are 
a result of a call to an initialization subroutine (GSP IN, GCAIN, 
ICAIN) . Where xxxx is the hexadecimal value, the address is to be 
determined at load time or during execution. 

GCOM CROSS REFERENCE 

Table 6 presents in alphabetical order the names of the fields in GCOM 
with the respective word number. The names used in system display are 
not included in this table. 



Table 6. Cross Reference Table for GCOM Mnemonics 



j Mnemonic 


Word 


Mnemonic 






j ACHAR 


85 | 


EGCA 


j ACICA 


61 


ENDDE 


| AERRS 


-36 | 


ENGCA 


| AICAP 


82 


GCID 


j AINDX 


-37 


GENIN 


j ANDE 


2 


GSPEC 


| APD 


90 | 


GSPSW 


j APU 


89 


HFFFF 


| ARG1-ARG8 


73-80 


ICACB 


| ASCIS 


84 


ICACV 


j ASD 


88 


ICNTR 


j ATNAD 


6 


IDDE 


j ATNAN 


11 


IDINT 


j ATNDS 


7 


IDGSP 


j ATNDT 


6-12 


IDXCT 


j ATNOV 


10 


IDXIN 


j ATNPF 


10 


IECV 


| ATNTP 


7 


IELCV 


j ATNX 


8 


IMECB 


| ATNY 


9 


INCEX 


| ATRAC 


86 


INCEY 


| AVER 


87 


INCMD 


j CANDE 


4 


INCSX 


| CCXR-CCYI 


44-51 


INCSY 


j CECV 


19 


INPRE 


| CMECB 


27 


ISBCB 


j CUMEV 


63 


ISCW 


| CURAD 


-34 


ISSDE 


j C1-C16 -11 


through -26 


LAGAP 


| C42 


-33 


LASTX 


| C512 


-29 


LASTY 


| C1023 


-27 


LCXI 


j DCHAR 


11 


| LCYI 


| DSPIN 


28 


LCXR 



Word | Mnemonic 



Word 



67 


LCYR 


37 | 


3 


LGXI 


32 | 


68 


LGYI 


33 | 


-1 


LPDE 


o 1 


31 


MDLST 


42 | 


-35 


MLRET 


69 | 


-5 


NAGAP 


29 j 


-28 


NGXI 


54 | 


13 


NGYI 


55 | 


17 


NOADR 


16 | 


83 


NPXI 


52 | 


-4 


NPYI 


53 j 


-3 


OADDR 


15 | 


-2 


OCDE 


1 1 


-39 


OPLST 


43 | 


-38 


PATRN 


-45 | 


18 


PFDE 


5 I 


20 


PFKI1 


23 j 


14 


PFKI2 


24 j 


59 


PLOPT 


-10 | 


60 


PMSG 


-55 | 


56 


REG1-REG3 


70-72 | 


57 


RETEV 


62 | 


58 


RLPRE 


65 | 


64 


RQNDA 


26 | 


22 


SATEN 


25 | 


81 


SSA 


-6 j 


12 


SUBCV 


21 | 


30 


SUBM 


-7 j 


-40 


TKINC 


-8 | 


-41 


TKMOD 


-9 | 


40 


VERLN 


66 | 


41 


WORK1-WORK4 


91-94 | 


34 


XF512 


-32 | 
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GCOM FORMAT 

Table 7 shows the format of GCOM giving the mnemonic, word number, a 
brief description of the function, and the initial value of each word. 
The initial value is set by the initialization subroutine GSPIN. 

Table 7. GSP Communication Area Format (GCOM) 

Initial 

Hexadecimal 

Mnemonic Word Name 6 Function Value 

******************* +PROCESSING MESSAGE********************************** 

PMSG -55 Set Graphic Mode Vector (SGMV) order 3200 

-54 Move Beam Absolute (MBA) order 4200 

-53 Coordinate for MBA (512) 0200 

-52 Draw Beam Incremental (DBI) 0,63 80BF 

-51 Draw Beam Incremental (DBI) 25,0 9980 

-50 Draw Beam Incremental (DBI) 10,-10 8AF6 

-49 Draw Beam Incremental (DBI) 0,-10 80F6 

-48 Draw Beam Incremental (DBI) -10,-10 F6F6 

-47 Draw Beam Incremental (DBI) -25,0 E780 

-46 Graphic Short Branch (GSB) to SD1 Oxxx 

******************** SCAN PATTERN**************************************** 

PATRN -45 Draw Beam Stroke (DBS) 0,7 

Draw Beam Stroke (DBS) 6,7 8F6F 
-44 Draw Beam Stroke (DBS) 6,0 

Draw Beam Stroke (DBS) 0,0 E808 
-43 Draw Beam Stroke (DBS) 6,7 

Move Beam Stroke (MBS) 0,7 EF07 

-42 Draw Beam Stroke (DBS) revert 6,0 E880 

************************************************************************ 

Last y coordinate for CVTTD 0000 

Last x coordinate for CVTTD 0000 

Index count and linkage address 0000 

Index entity indicator 0000 

Address of GSP11 xxxx 

Address of the error processing subroutine xxxx 

Number of times GSP01 is called (by external 0000 
subroutines) 

CURAD -34 Cursor address 0000 
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LASTY 


-41 


LASTX 


-40 


IDXCT 


-39 


IDXIN 


-38 


AINDX 


-37 


AERRS 


-36 


GSPEC 


-35 



*********************+***********coNSTANTS* ******************** ********* 



C42 


-33 


XF512 


-32 


C512 


-29 


HFFFF 


-28 


C1023 


-27 


C16 


-26 


C15 


-25 


C14 


-24 


CI 3 


-23 


CI 2 


-22 


Cll 


-21 


CIO 


-20 


C9 


-19 


C8 


-18 


C7 


-17 


C6 


-16 


C5 


-15 


C4 


-14 


C3 


-13 


C2 


-12 


CI 


-11 


PLOPT 


-10 


TKMOD 


-9 


TKINC 


-8 


SUBM 


-7 


SSA 


-6 


GSPSW 


-5 


IDDE 


-4 


IDINT 


-3 


IDGSP 


-2 


GCID 


-1 



Constant of 42 



002A 



Extended floating point constant 512 008A 4000 0000 
of 512 

Constant of 512 0200 

Constant of hexadecimal FFFF FFFF 

Constant of 1023 03FF 

Constant of 16 0010 

Constant of 15 00 OF 

Constant of 14 000E 

Constant of 13 000D 

Constant of 12 00 0C 

Constant of 11 000B 

Constant of 10 000A 

Constant of 9 0009 

Constant of 8 0008 

Constant of 7 0007 

Constant of 6 0006 

Constant of 5 0005 

Constant of 4 0004 

Constant of 3 0003 

Constant of 2 0002 

Constant of 1 0001 

Point or line option (0001=line; 0002=point) 0000 

Track mode (0001=position) 0000 

Track distance (increment) 0030 

Subroutine mode indicator 0000 

Address of the GSP03 search function save area xxxx 

GSP status indicator (0=program; 1=GSP) 0000 

ID word of direct entry subroutine 0000 

ID word of inner GSP subroutine 0000 

ID word of outer GSP subroutine 0000 

GCOM identification word 0000 
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************************ 

* Base Address of GCOM * 
************************ 

****************** ATTENTION HANDLING FIELDS ************************** 



LPDE 

OCDE 

ANDE 

ENDDE 

CANDE 
PFDE 

ATNDT 

ATNAD 
ATNTP 



ATNDS 


7 


ATNX 


8 


ATNY 


9 


ATNPF 


10 



ATNOV 



ATNAN 


11 


DCHAR 


11 


ISSDE 


12 



ICACB 



Address of light pen direct entry subroutine 0000 
(set by ICAIN) 

1 Address of order controlled direct entry 0000 
subroutine (set by ICAIN) 

2 Address of alphameric keyboard direct entry 0000 
subroutine (set by ICURS) 

3 Address of END key direct entry subroutine 0000 
(user provided) 

4 Address of CANCEL key direct entry 0000 

5 Address of program function keyboard direct 0000 
entry subroutine (user provided) 

6-11 Attention data set by XIO Read Status and used 
by DSPYN 

6 Address of attention order 0000 

7 Attention type (bits 0-10) 0000 

bit pattern for bits 0-10 

0-order controlled attention 

1-alphameric keyboard 

2-detect attention, light pen enabled 

4-detect status, light pen disabled 

7- light pen switch closed when Start Timer 

instruction entered 
8- busy 

9-character mode (1= character; 0=graphic) 
10-graphic mode (l=point; 0=vector) 

Attention order address displacement (bits 14-15) 

Attention x coordinate (bits 6-15) 0000 

Attention y coordinate (bits 6-15) 0000 

Attention program function keyboard 0000 

(bits 3-7) 

10 Attention program function keyboard overlay 0000 
(bits 8-15) 

Attention alphameric key (bits 3-7) 0000 

Detected character on light pen attention 0000 

Internal service subroutine indicator 0000 

(bits 12-15) 

bit pattern for bits 12-15 

0000 not processed by direct entry subroutine 

0001 priority light pen attention 
0010 light pen attention for program 
0100 order controlled for program 
1000 processed by direct entry subroutine 

13 Address of ICA ECCB 0000 
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IMECB 


14 


OADDR 


15 


NOADR 


16 


ICACV 


17 


IECV 


18 


CECV 


19 


IELCV 


20 


SUBCV 


21 



ISBCV 

PFKI1 

PFKI2 
SATEN 



RQNDA 
CMECB 

DSPIN 



22 

23 

24 
25 



26 
27 

28 



Address of image entity ECCB 0000 

Current order address 0000 

Next order address (to be generated) 0000 

Correlation value for ICA ECCB 0000 

Correlation value for image entity 0000 

Correlation value for controlled entity 0000 

Correlation value for inner element 0000 

Correlation value for subroutine or tracking 0000 
entity 

Correlation value for inner element of 0000 

subroutine or tracking entity 

Indicate which program function keyboard lights 0000 
are enabled. 

Bits 0-31 correspond to lights 0-31 

Word to indicate attention status (bits 11-15) 

bit pattern for bits 11-15 

00000 all attentions disabled 

00001 order controlled interrupts enabled 
00010 light pen attentions enabled 
00100 END key enabled 

01000 alphameric keyboard enabled 
10000 program function keyboard enabled 



Address of attention queue in DSPYN 



0000 



******************* 
NAGAP 29 



Address of the ECCB for the message entity in 0000 
which there is a GB to the cursor 

Display word indicator (bits 0-6) 0000 

bit pattern for bits 0-6 
1000000 LCPOS 
0100000 TRACK 
0010000 LOCPN 
0001000 LOCND 
0000100 PROCESSING 
0000010 TMDSP 
0000001 EXEC 

IMAGE GENERATION FIELDS **************************** 



LAGAP 



GENIN 



30 



Address of next available word in ICA for 
storing graphic order 

Address of last available word in ICA for 
storing graphic order 



LGXI 



31 Generation mode indicator word (bits 14-15) 

bit pattern for bits 14-15 

00 normal 

01 update 
10 external 

32 Last generated x integer 



0000 



0000 



0000 



0200 
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LGYI 


33 


LCXR 


34 


LCYR 


37 


LCXI 


40 


LCYI 


41 


MDLST 


42 



0200 
008A 4000 0000 
008A 4000 0000 

0200 



Last generated y integer 

Last computed x real extended 

Last computed y real extended 

Last computed x integer 

Last computed y integer 0200 

Last character or graphic mode (bits 12-15) 0000 

bit pattern for bits 12-15 
0001 vector 
0010 point 

0100 basic character size 
1000 large character size 

OPLST 43 Last output mode 0000 

bit pattern for bits 14-15 
01 absolute 

10 incremental 

11 optimized 

******************** OUTPUT OF SCALING FORMULAS ************************ 
CCXR 44 Current computed x real extended 0000 0000 0000 

CCYR 47 Current computed y real extended 0000 0000 0000 

CCXI 50 Current computed x integer 0000 

CCYI 51 Current computed y integer 0000 

******************** OUTPUT OF SCISSOR SUBROUTINE ********************** 
NPXI 52 New position point for x-coordinate 0000 

NPYI 53 New position point for y-coordinate 0000 

NGXI 54 New generation point for x-coordinate 0000 

NGYI 55 New generation point for y-coordinate 0000 

******************** input TO' GSP02 INCREMENT FUNCTION ***************** 



INCMD 



56 



INCSX 


57 


INCSY 


58 


INCEX 


59 


INCEY 


60 



Increment mode (bit 15) 

bit pattern for bit 15 

blanked mode 

1 unblanked mode 

Increment start x coordinate 
Increment start y coordinate 
Increment end x coordinate 
Increment end y coordinate 



0000 



0000 
0000 
0000 
0000 



************************************************************************ 

ACICA 61 Address of the ECCB for the active ICA 0000 

RETEV 62 Address of the return error variable xxxx 

CUMEV 63 Address of the cumulative error variable xxxx 
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Integer precision (1, 2 or 3 words per element) 0002 
Real precision (2 or 3 words per element) 0002 
Verification level number 0001 

External generation count 0000 

External non-generation count 0000 

**************** FIELDS SET BY GSP01 SAVE FUNCTION ********************* 



INPRE 


64 


RLPRE 


65 


VERLN 


66 


EGCA 


67 


ENGCA 


68 



MLRET 


69 


REG1 


70 


REG2 


71 


REG3 


72 


ARGl 


73 


ARG2 


74 


ARG3 


75 


ARG4 


76 


ARG5 


77 


ARG6 


78 


ARG7 


79 


ARG8 


80 



Mainline return address 
Save area for index register 1 
Save area for index register 2 
Save area for index register 3 
Save area for argument 1 
Save area for argument 2 
Save area for argument 3 
Save area for argument 4 
Save area for argument 5 
Save area for argument 6 
Save area for argument 7 
Save area for argument 8 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



************************************************************************ 



ISCW 


81 


AICAP 


82 


ICNTR 


83 


ASCIS 


84 



ACHAR 



85 



ATRAC 


86 


AVER 


87 


ASD 


88 


APU 


89 



APD 



90 



WORK 1- WORK 4 91-94 



Inner subroutine communication word 

Address of the active ICA preface 

Counter for internal use 

Address of scissor subroutine (set by GSPIN 
if requested) 

Address of GCHAR or GUPER (set by 
GSPIN if requested) 

Address of TRACK subroutine 

Address of verification subroutine 

Address of system display 

Address of GSP05 (Push-up) (set by GSPIN if 
requested) 

Address of GSP04 (Push- down) 

Work areas for general use 



0000 
0000 
0000 
xxxx 

xxxx 

0000 
0000 
xxxx 
xxxx 

0000 
0000 



********************************** 

* Entry Point for System Display * 
********************************** 

STMRl 95 Start Timer 



3400 
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Graphic Branch Conditional on light pen switch 2801 

Address word of SDSW xxxx 

Start Timer 3400 

Linkage to processing message 2C00 

Address word of SD2 xxxx 

Linkage to scan order subroutine 2C00 

Address word of SD3 (SCAN1) xxxx 

Linkage to tracking symbol order subroutine 2C00 

Address word of SD4 (a location in GSP09) xxxx 

Set Pen Mode order (SPM /5) 3105 

Set Graphic Mode Vector order (SGMV) 3200 

Move Beam Absolute order (MBA) to move 4200 

beam positioning to middle of screen 0200 

Linkage to image entity of user 2C00 

Address word of SD5 xxxx 
Linkage to scan order subroutine on no detect 2C00 

Address word of SD6 (SCNND) xxxx 

Graphic Short Branch order to SD1 Oxxx 
******************** ******** ******************************************** 

Set Pen Mode order (SPM /9) 3109 

Set Character Mode Basic order (SCMB) 3300 

Graphic Short Branch order to Scan Pattern Oxxx 

GNOP order 3100 

Graphic Branch Conditional on light pen 2802 
detect 

Address word of GBC (DET) xxxx 

Graphic Short Branch to SCAN1 Oxxx 

Start Timer 3400 

Graphic Interrupt Conditional on light pen 2001 
switch 

A value in the GIC 0002 

Graphic Short Branch to SCAN1 Oxxx 

Graphic Branch Conditional 2801 

Address word of GBC (SCAN1) xxxx 

Graphic Short Branch to SDl Oxxx 



SDSW 


96 




97 


SDl 


98 


SD2 


99 


SD2AD 


100 


SD3 


101 


SD3AD 


102 


SD4 


103 


SD4AD 


104 




105 




106 




107 




108 


SD5 


109 


SD5AD 


110 


SD6 


111 




112 




113 


*****************: 


SCAN1 


114 


SCANIA 


115 




116 




117 


SCAN 2 


118 




119 




120 


DET 


121 


SCINT 


122 




123 




124 


SCNND 


125 




126 




127 
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GCA FORMAT 



Table 8 shows the format of the GCA giving the mnemonic, word number, a 

brief description, and the initial value of each word. The initial 

values are set by the initialization subroutine GCAIN, or selectively 
set by SDATM, SGRAM, SINCR, SINDX, SSCAL, or SSCIS. 



Table 8. 


General 


Mnemonic 


Word 


GLLX 





GLLY 


1 


GURX 


2 


GURY 


3 


XMSCL 


4 


XASCL 


7 


YMSCL 


10 


YASCL 


13 


XSINC 


16 


YSINC 


19 


XEINC 


22 


YEINC 


25 


XSIND 


28 


YSIND 


29 


XEIND 


30 


YEIND 


31 


XIPMD 


32 



YIPMD 



Generation Control Area Format (GCA) 



Name 6 Function 

Grid lower left x coordinate 

Grid lower left y coordinate 

Grid upper right x coordinate 

Grid upper right y coordinate 

Multiply scale factor x value 

Addition scale factor for x value 

Multiply scale factor for y value 

Addition scale factor for y value 

Start increment for x value 

Start increment for y value 

End increment for x value 

End increment for y value 

Start index for x value 

Start index for y value 

End index for x value 

End index for y value 

Input mode for x value (bits 0-2) 



Initial 

Hexadecimal 

Value 

0000 

0000 

03FF 

03FF 

0000 0000 0001 

0000 0000 0000 

0000 0000 0001 

0000 0000 0000 

0000 0000 0000 

0000 0000 0000 

0000 0000 0000 

0000 0000 0000 

0001 

0001 

0001 

0001 

2580 



bit pattern for bits 0-2 
♦001 real absolute 

010 real incremental 

011 integer absolute 

100 integer incremental 

101 integer absolute in 2250 raster units 

32 Input mode for y value (bits 3-5) see XIPMD 

bit pattern for bits 3-5 
♦001 real absolute 

010 real incremental 

011 integer absolute 

100 integer incremental 

101 integer absolute in 2250 raster units 



OPMD 



32 Output mode (bits 6-7) 



see XIPMD 
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bit patterns for bits 6-7 
♦01 optimized output graphic mode 

10 absolute output graphic mode 

11 incremental output graphic mode 

SCIS 32 Scissor Option (bits 8-9) see XIPMD 

bit patterns for bits 8-9 

01 scissoring at screen boundaries 
10 scissoring at grid boundaries 

Words 33-41 Reserved 
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ICA PREFACE FORMAT 



Table 9 shows the format of an ICA preface giving the mnemonic, word 
number, a brief description and the initial value of each word.. The 
initial values are set by the initialization subroutine ICAIN. 



Table 



Mnemonic 



SAVA 



EAVA 



NAVWD 



SCB 



ECB 



FAVCB 



CCB 



CALY 



CALXI 



CALY I 



LSTMD 



ICA Preface Format 



Word 



SCCB 


7 


CUCB 


8 


NCBAU 


9 


DLCNT 


10 


ICAPT 


11 


GENX 


12 


GENY 


13 


CALX 


14 



17 



20 



21 



22 



Name 6 Function 



Initial 

Hexadecimal 

Value 



Start available area address (position for 
first graphic order in ICA) 

Save area for LAGAP (in GCOM) 
during update function. 

Save area for NAGAP (in GCOM) 
during update function. 

Start of active ECCB chain (address of 
ICA ECCB) 

End of active ECCB chain (address of 
last ECCB) 

Address of first available ECCB 
on inactive chain 

Address of ECCB for current 
element 

Save area for current ECCB (CCB address) 

Current update control block (address) 

Address of the next control block 
after update ECCB 

Number of ECCBs for deleted elements 

Address of the previous ICA 

Last x coordinate generated 

Last y coordinate generated 



xxxx 



xxxx 



xxxx 

0000 

0000 

0000 
0000 
0000 

0000 



Last x coordinate computed 
(real extended precision) 

Last y coordinate computed 
(real extended precision) 

Last x coordinate computed (integer 
precision) 

Last y coordinate computed (integer 
precision) 



0200 
0200 
008A 4000 0000 

008A 4000 0000 

0200 

0200 



Last character or graphic mode (bits 12-15) 

bit pattern for bits 12-15 
0001 vector 

0100 basic character size 
1000 large character size 



0000 
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LSTOP 23 Last output mode (bits 12-15) 0000 

bit pattern for bits 12-15 
0001 absolute 

0010 incremental 

0011 optimized 
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ECCB FORMAT 



Table 10. 


Elemei 


Mnemonic 


Word 


CORVL 





ELSTA 


1 


ELEND 


2 


FORPT 


3 


INDIC 


3 



Table 10 shows the format of an ECCB giving the mnemonic, word number, 
and a brief description of each word. The values are set by the image 
management subroutines. 

Element Correlation Control Block Format 
Name 6 Function 
Correlation value 
Element start address 
Element end address 

Forward pointer for chaining ECCBs (bits 0-10) 
Element indicators (bits 11-15) 
bit 11 - 0=element begun; l=element ended 

bit pattern for bits 12-15 

0000 image entity 

0001 controlled entity 

0010 uncontrolled entity 

0011 subroutine entity 

0100 origin entity 

0101 message entity 

0110 linkage entity 

0111 reserved 

1000 level-controlled entity 

1001 indexed entity 

1010 reserved 

1011 included element subroutine 

1100 reserved 

1101 stroke subroutine 
1110-1111 reserved 
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APPENDIX B: SUBROUTINE CROSS REFERENCE 



This appendix is a cross reference of subroutine information and is 
presented in the following format: 

MNEMONIC ; the symbol of the subroutine. 

ID ; a hexadecimal value assigned to the subroutine and stored in the 
external or internal identification field in GCOM while the subroutine 
is processing,. 

WORDS ; the decimal number of words in core occupied by the subroutine. 

CALLED SUBROUTINE ; the subroutine (s) that gains control to perform 
specific functions. Appendix B in IBM 1130/2250 Graphic Subroutine 
Package for Basic FORTRAN IV (Form C27-6934) gives the subroutines whose 
loading is caused by CALL statements within the subroutine being 
described. 

TYPE/SUBTYPE ; the code identifying the type of subroutine as follows: 

Type 3 - a subprogram referenced by a LIBF statement. 

Type 4 - a subprogram referenced by a CALL statement. 

Type 5 - an interrupt service subprogram referenced by a LIBF 
statement. 

Subtype - an incore subprogram. 

Subtype 8 - a function subprogram. 

CHART ; the two-character symbol assigned to the flowchart (s) of the 
subroutine. 
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Table 11. Subroutine Cross Reference Table 
r t t t 



| MNEMONIC 

L J 


ID 

L | 


WORDS 

I — J 


CALLED 
SUBROUTINES 

L _ _ J 


TYPE/ 
SUBTYPE 

L J 


CBART 

L _ 


r 1 
| BCNV 


r — 1 
9A00 


r 1 
630 


GSP01 f GSP10 


r 1 
4/8 


r 

GG 


| BELMT 


2400 


186 


GSP01,GSP02 
GSP03 


4/8 


BA 


| BXGEN 


B200 


54 


GSP01 f GSP03 


4/8 


BH 


| CTLTK 


A800 


524 


GSP01 f GSP02 
GSP03, DSPYN 


4/8 


FD r FE 


| CVTTD 


AC00 


688 


GSP01,GSP03 
GSPIO 


4/8 


FF 


| DELMT 


2C00 


342 


GSP01,GSP03 
DSPYN 


4/8 


BC 


| DFMSG 


9000 


382 


GSP01,GSP02 
GSP03, DSPYN 
EELMT, UELMT 


4/8 


GA 


| DSPYN 


B000 


1026 


GSP07,GSP08 


5/0 


DD,DE, 
DF,DG, 
DH,DJ 


| EELMT 


2600 


342 


GSP01,GSP02 
GSP03 


4/8 


BB 


| ERRIN 


BA00 


10 


GSP01 


4/8 


none 


| EXEC 


3000 


306 


GSP01,GSP03 
DSPYN 


4/8 


DA 


| EXGEN 


B400 


32 


GSP01,GSP03 


4/8 


BJ 


| GCAIN 


5000 


58 


GSP01, GSPIO 


4/8 


AC 


| GCHAR 


0200 


849 




4/0 


none 


| GSPIN 


2000 


226 


GSP01 f GSP03 

DSPYN 


4/8 


AA 


| GSPTM 


3400 


39 


GSP01, DSPYN 


4/8 


AF 


| GUPER 


6000 


726 




4/0 


none 


| GSP01 


COOO 


179 




3/0 


KA 


| GSP02 


C200 


1504 


GSP01,GSP04 
GSP05 f GSP06 
GSPIO 


3/0 


CH,CJ, 
CK f CL, 
CM,CN 


| GSP03 


C400 


590 


GSP01,GSP04 
DSPYN 


3/0 


KB,KC 


| GSP04 


C600 


354 


GSP01, DSPYN 


4/0 


BM 


| GSP05 


C800 


272 


GSP01 f GSP03 
GSP04 


4/0 


BN 


| GSP06 


CAOO 


612 


GSPIO 


4/0 


CO 


| GSP07 


CCOO 


198 




3/0 


HA 
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Table 11. Subroutine Cross Reference Table (continued) 

r T T ~ T T 



MNEMONIC 



ID 



WORDS 



CALLED 
SUBROUTINES 



TYPE/ 
SUBTYPE 



CHART 



GSP08 

GSP09 
GSP10 
GSP11 
GSP12 
I CAIN 

ICURS 

IDPOS 
IELMT 
IERRS 
LCPOS 
LKSUB 



LOCPN/ 
LOCND 

MSGIN 



MVPOS 

PCOPY 

PGRID 

PLINE/ 

PPNT/ 

PSGMT 

PTEXT 

RCURS 

RDPOS 

ROCOR 

RQATN 

SATNS 

SATRB 

SDATM 



CEOO 

D000 
D200 
D400 
D600 
2200 

9400 

6000 
B600 
B800 
A400 
6A00 



A000 
A200 

9200 



5E00 

6E00 

6C00 

6200 
6400 
6600 

6800 

9600 

7000 

8400 

8200 

8000 

2E00 

5A00 



498 

582 
222 
156 
212 
241 

164 

10 
34 

254 
44 

186 

48 
100 
162 

228 
70 
54 

50 
26 
16 

120 
68 
32 

156 
40 



GSP03,GSP09 
GSP11,GSP12 



GSP01,GSP03 
DSPYN 

GSP01,GSP03 
DSPYN 

GSP01,GSP02 

GSP01,GSP03 



GSP01 f GSP02 

GSP01,GSP02 
GSP03 

GSP01 



GSP01,GSP02 
GSP03 

GSP01,GSP02 
GSP03,EELMT 
UELMT 

GSP01 f GSP03 

GSP01 f GSP02 

GSP01,GSP02 



GSP01,GSP02 

GSP01, DSPYN 

GSP01 

GSP01,GSP03 

GSP01 

GSP01 

GSP01,GSP03 

GSP01 



3/0 

3/0 
3/0 
3/0 
3/0 
4/8 

4/8 

4/8 
4/8 
4/0 
4/8 
4/8 

4/8 

4/8 

4/8 

4/8 
4/8 
4/8 

4/8 
4/8 
4/8 
4/8 
4/8 
4/8 
4/8 
4/8 



HB 

HC 

none 

HD 

none 

AB 

GC 

none 

BG 

JA 

FB 

CD,CE 

FA 

GB 

CA 

CG 
CF 
CB 

CC 

GD 

none 

EC 

EB 
EA 
BK 
AE 
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Table 11. Subroutine 
r t 



Cross Reference Table (continued) 



r t t- 



H- 



MNEMONIC 


ID 


WORDS 


CALLED | TYPE/ | 
SUBROUTINES | SUBTYPE j CHART 


SGRAM 


5C00 


30 


GSP01 


4/8 


AE 


SI NCR 


5800 


40 


GSP01,GSP10 


4/8 


AE 


SINDX 


5600 


42 


GSP01 


4/8 


AE 


SPFKL 


8600 


156 


GSP01, DSPYN 


4/8 


DC 


SSCAL 


5200 


224 


GSP01,GSP10 


4/8 


AD 


SSCIS 


5400 


32 


GSP01 


4/8 


AE 


STPVS 


3600 


120 


GSP01 


4/8 


BL 


TLMSG 


9800 


324 


GSP01,GSP03 


4/8 


GE f GF 


TMDSP 


3200 


38 


GSP01, DSPYN 


4/8 


DB 


TRACK 


A600 


204 


GSP01,GSP02 
GSP03,GSP04 


4/8 


FC 


UELMT 


2800 


314 


GSP01,GSP02 
GSP03,DELMT 
DSPYN 


4/8 


BD f BE 


XELMT 


2A00 


188 


GSP01,GSP03 
GSP05, DSPYN 


4/8 


BF 



L X J. J. -L -L 



J 
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APPENDIX C: GRAPHICS INITIALIZATION PROGRAM (GRIN) 



The Graphics Initialization Program 
(GRIN) displays a frame which permits the 
2250 operator to select various options 
from a list displayed on the 2250 screen. 
This selection is made by causing a light 
pen attention on a specific item in the 
list. 

GRIN is initiated by entering a JOB (// 
JOB) and an XEQ (// XEQ GRIN) control 
record in the system I PL device. 

GRIN's initial task is to enable the 
CANCEL key and wait for an attention from 
that source (ready status). Upon receiving 
a CANCEL key attention,, GRIN displays the 
SELECT OPTION frame. The format of the 
SELECT OPTION frame is shown in Figure 25. 

* SGJP 

An attention of * SGJP causes a -1 to be 
stored in $GRIN (hexadecimal location 64). 
GRIN then executes a LINK to SGJP. 



EXECUTE 1130 PROGRAM 
ENTER THE NAME OF A DC I 
PROGRAM TO BE EXECUTED 



* STAND, ALONE 

An attention on * STAND ALONE causes 
GRIN to store a 2 in $GRIN. The EXECUTE 
1130 PROGRAM frame is then displayed for 



Figure 26. EXECUTE 1130 PROGRAM Frame 



SELECT OPTION 

- SGJP 

!! STAND-ALONE 

!! SYSTEM EXIT 

" TERMINATE GRIN 



Figure 25. SELECT OPTION Frame 



the operator to specify his program. The 
format of the EXECUTE 1130 PROGRAM frame is 
shown in Figure 26. 

When the program name has been entered, an 
END key attention or a light pen attention 
on the END option in the frame causes GRIN 
to convert the program name to 1130 name 
code. 1130 name code is a modification of 
EBCDIC code. A search is then made of the 
Location Equivalence Table (LET) to deter- 
mine if the program name is in the table. 
The third word of the program name LET 
entry is tested to ensure that the program 
is in Disk Core Image (DCI) format. (Bit 
= 1 for DCI programs.) GRIN then builds a 
LINK statement to the program in order to 
load and pass control to it. 

If the name is not in LET, the message 
"NAME NOT IN LET" appears to the right of 
the program name grid on the screen. The 
cursor is repositioned and the operator may 
then enter a new name. A program name 
which is contained in LET but which is not 
in DCI format causes the message "NOT A DCI 
PROGRAM" to be displayed to the right of 
the program name grid. An attention on the 
RETURN option in the frame causes GRIN to 
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store a 1 in $GRIN and return to the SELECT 
OPTION frame. 

* SYSTEM EXIT 

This option causes GRIN to store a in 
$GRIN and branch to $EXIT. 

* TERMINATE GRIN 

An attention on the * TERMINATE GRIN 
option results in GRIN storing a in $GRIN 
and returning to the ready status. 
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uncontrolled. 32-33 
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error handling , 64-65, 25 

error processing subroutine 
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FBTD. 61 
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GCHAR 57, 21, 56 
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*G2250 Supervisor Control 
Record (see Supervisor 
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ICURS 59,21,25,56 

IDPOS... 36-37,32 

IELMT 35, 32 

IERRS 65, 25-26 
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attentions) 7,12,15 

Interrupt Level subroutine 
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Interrupt Service subroutine 
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LCPOS 54,17-18,53 
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mode 22-24 

subroutines 53-56 

tracking 17-19, 64 
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LKSUB 40,38 
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LOCPN/LOCND 53-54,17-18 
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MSGIN 58-59,21,56 

MVPOS 38-39 
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Orders) 

PCOPY 41,38 
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PTEXT 39,38 

RCURS 59,21,25,56 
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ROCOR 53, 51 
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SATNS 51,22 
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SPFKL .. 46-47,16,45 

SSCAL 29,15,27 

SSCIS 30,15,27 

STPVS 36, 32 
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subroutines 

cross reference table. 
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external 

internal 7, 
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TMDSP 46,15,45 
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symbol 17-19,13,21,24,54-55,62-63 
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UELMT 34,31 

visibility 36 

WAIT instruction 26, 66 

XELMT 34-35,31 

XEQ Monitor Control Record. 7 

XIO commands (see Input/Output 
commands ) 

2250 Channel Interface 15 

2250 Orders 

Branch (GB) 12-13 

Draw Beam (DBA, DBI) 42 

Interrupt (GI, GIC) 24 

Move Beam (MBA, MBI) 42 

Overhead 32-33, 15, 41, 54, 58 
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IBM 1130/2250 Graphic Subroutine Package 

For Basic FORTRAN IV 

Program number 1130-LM-008 

Y27-7174-0 



Please check or fill in the items below, adding explanations and other comments 
in the space provided. 

Which of the following terms best describes your job? 

H Programmer H Systems Analyst U Customer Engineer 

U Manager U Engineer U Systems Engineer 

H Operator H Mathematician U Sales Representative 

H Instructor H Student/Trainee U Other (explain) 



Does your installation subscribe to the SRL Revision Service? H Yes H No 

How did you use this publication? 

n As an introduction 

n As a reference manual 

H As a text (student) 

H As a text (instructor) 

H For another purpose (explain) 



Did you find the material easy to read and understand? H Yes H No (explain below) 

Did you find the material organized for convenient use? n Yes H No (explain below) 

Specific criticisms (explain below) 

Clarifications on pages 

Additions on pages 

Deletions on pages 

Errors on pages 

Explanations and other comments: 



Thank you for your cooperation. No postage necessary if mailed in the U.S.A. 
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cations for your use. Each reply will be carefully reviewed by 
the persons responsible for writing and publishing this material. 
All comments and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assis- 
tance in utilizing your IBM system should be directed to your IBM 
representative or to- the IBM sales office serving your locality. 
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